Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten aus excel ausgeben

Daten aus excel ausgeben
17.01.2005 23:49:02
domda
hallo zusammen,
gibts eine möglichkeit eine excel tabelle wie folgt als txt abzuspeichern:
(ersetzer "A1" "B1")
(ersetzer "A2" "B2")
(ersetzer "A3" "B3")
(ersetzer "A4" "B4")
.
.
.
.
benötige die txt datei zur weiteren bearbeitung in acad...
ersetzer bedeutet nur ein befehl in acad...
vielen dank
ciao dominik

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus excel ausgeben
18.01.2005 00:17:51
Matthias
Hallo Dominik,
meinst du mit "A1", "B1" usw. den Inhalt der entsprechenden Zellen?
Dann so:
Sub ersetzer()
Dim i As Integer
On Error Resume Next
Open ThisWorkbook.Path & "\test.txt" For Output As #1
If Err.Number > 0 Then MsgBox "Fehler beim Öffnen!": Exit Sub
For i = 1 To 4
Print #1, "(ersetzer " & Cells(i, 1) & " " & Cells(i, 2) & ")"
Next i
Close #1
End Sub
Gruß Matthias
AW: Daten aus excel ausgeben
18.01.2005 00:30:02
domda
benötige die "" zeichen allerdings wirklich vor und nach A1 bei der ausgabe die ich bei dir rausbekomme ist nur der text da....
siehe:
(ersetzer ...KVA …kVA)
(ersetzer 1.OG 1.floor)
(ersetzer 2.OG 2.floor)
(ersetzer 2fach double)
(ersetzer 3.OG 3.floor)
(ersetzer 4.OG 4.floor)
(ersetzer 6fach sextuble)
sollte aber so sein:
(ersetzer "...KVA" "…kVA")
(ersetzer "1.OG" "1.floor")
(ersetzer "2.OG" "2.floor")
(ersetzer "2fach" "double")
(ersetzer "3.OG" "3.floor")
(ersetzer "4.OG" "4.floor")
(ersetzer "6fach" "sextuble")
gibts da noch was?
danke auf jeden fall schon mal
Anzeige
AW: Daten aus excel ausgeben
18.01.2005 00:33:36
Matthias
Hallo Dominik,
dann so:
Sub ersetzer()
Dim i As Integer
On Error Resume Next
Open ThisWorkbook.Path & "\test.txt" For Output As #1
If Err.Number > 0 Then MsgBox "Fehler beim Öffnen!": Exit Sub
For i = 1 To 4
Print #1, "(ersetzer """ & Cells(i, 1) & """ """ & Cells(i, 2) & """)"
Next i
Close #1
End Sub
Grüße,
Matthias
AW: Daten aus excel ausgeben
18.01.2005 00:38:49
domda
vielen vielen dank ...
wäre sonst glaub ich noch morgen früh dabei gesessen ...
hab nur mehr die zeilen von 4 auf 500 erhöhen müssen und hab die gesammte tabelle vor mir...
danke jetzt werd ich vielleicht doch bis morgen früh fertig....
ciao dominik
Anzeige
na dann eine erfolgreich Nacht noch ;-) - o.T.
18.01.2005 00:51:36
Matthias
o

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige