Herbers Excel/VBA-Archiv
Spalten aus Tabelle in Textdatei
- Spalten aus Tabelle in Textdatei von Dirk vom 01.10.2003 10:38:42
- AW: Spalten aus Tabelle in Textdatei - von Reinhard am 01.10.2003 10:54:27
- AW: Spalten aus Tabelle in Textdatei - von Dirk am 01.10.2003 11:25:13
- AW: Spalten aus Tabelle in Textdatei - von Dirk am 01.10.2003 11:25:13
- Brauch immer noch Hilfe!!! - von Dirk am 01.10.2003 12:43:49
- AW: Brauch immer noch Hilfe!!! - von Reinhard am 01.10.2003 13:15:54
- Danke, jetzt funzt es - von Dirk am 01.10.2003 15:33:24
- Danke für die Rückmeldung o.w.T - von Reinhard am 01.10.2003 18:42:11
- Danke für die Rückmeldung o.w.T - von Reinhard am 01.10.2003 18:42:11
- Danke, jetzt funzt es - von Dirk am 01.10.2003 15:33:24
- AW: Brauch immer noch Hilfe!!! - von Reinhard am 01.10.2003 13:15:54
- AW: Spalten aus Tabelle in Textdatei - von Reinhard am 01.10.2003 10:54:27
 |
Betrifft: Spalten aus Tabelle in Textdatei
von: Dirk
Geschrieben am: 01.10.2003 10:38:42
Guten Morgen zusammen!
Hallo, ich brauch mal wieder eure Hilfe.
Wie kann ich denn zwei Spalten einer Zeile verbunden durch einen ":" in eine Textdatei schreiben/exportieren, so dass für jede Zeile auch eine neue in der Textdatei genommen wird.
Die Textdatei sollte dann so aussehen:
xxxx:xxxxx
xxxx:xxxxx
...
(Inhhalt von Spalte x : Inhalt von Spalte y).
Wenn möglich mit Angabe von und bis zu welcher Zeile das ganze gemacht werden soll.
Hat jemand eine Ahnung? Danke schon mal.
Gruß, Dirk
 |
Betrifft: AW: Spalten aus Tabelle in Textdatei von: Reinhard
Geschrieben am: 01.10.2003 10:54:27
Hi Dirk,
ungetestet:
x=...
y=...
open "c:\temp\test.txt" for output as #1
for n= 5 to 20
print #1, cells(n,x).value & ":" & cells(n,y).value
next n
close #1
Gruß
Reinhard
Reinhard
| |
Betrifft: AW: Spalten aus Tabelle in Textdatei von: Dirk
Geschrieben am: 01.10.2003 11:25:13
Hallo, leider funktioniert es nicht mit der Meldung
"Anwendungs- oder objektdefinierter Fehler".
Bei mir hat es dann so ausgesehen:
Sub test() Open "c:\temp\test.txt" For Output As #1 For n = 2 To 50 Print #1, Cells(n, D).Value & ":" & Cells(n, E).Value Next n Close #1 End Sub
D und E sollte dabei für die Spalte stehen. Ist doch richtig, oder?
| |
Betrifft: Brauch immer noch Hilfe!!! von: Dirk
Geschrieben am: 01.10.2003 12:43:49
Hat noch jemand eine Idee, denn o. g. funktioniert leider nicht.
Gruß, Dirk
| |
Betrifft: AW: Brauch immer noch Hilfe!!! von: Reinhard
Geschrieben am: 01.10.2003 13:15:54
Hi Dirk,
das Gleiche nochmal, diesmal komplett funktionsfähig:
Option Explicit
Sub Durk()
'Annahme, Werte stehen im Bereich D5:E20
Dim Spalte1 As Integer
Dim Spalte2 As Integer
Dim Zeile As Long
Spalte1 = 4 'Spalte 4 == Spalte D
Spalte2 = 5 'Spalte 5 == Dpalte E
Open "c:\temp\test.txt" For Output As #1
For Zeile = 5 To 20
Print #1, Cells(Zeile, Spalte1).Value & ":" & Cells(Zeile, Spalte2).Value
Next Zeile
Close #1
End Sub
Gruß
Reinhard
| |
Betrifft: Danke, jetzt funzt es von: Dirk
Geschrieben am: 01.10.2003 15:33:24
Vielen Dank!!!
| |
Betrifft: Danke für die Rückmeldung o.w.T von: Reinhard
Geschrieben am: 01.10.2003 18:42:11
.
| |