Daten aus excel ausgeben

Forumthread: 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

AW: Daten aus excel ausgeben

18.01.2005 00:17:51

Matthias
AW: Daten aus excel ausgeben

18.01.2005 00:30:02

domda
AW: Daten aus excel ausgeben

18.01.2005 00:33:36

Matthias
AW: Daten aus excel ausgeben

18.01.2005 00:38:49

domda
na dann eine erfolgreich Nacht noch ;-) - o.T.

18.01.2005 00:51:36

Matthias

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

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

na dann eine erfolgreich Nacht noch ;-) - o.T.

18.01.2005 00:51:36

Matthias

Beliebteste Forumthreads (12 Monate)

Forumthread: Daten aus excel ausgeben

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread