Open Textdatei for output
Gerald
Hallo Zusammen,
ich habe folgendes Problem bei der Erzeugung einer Textdatei aus Excel heraus.
Angenommen in der Zelle A1 steht folgendes
A
1 Hallo Welt
so kann durch folgendem Code
Sub Test()
Dim strBla As String
Open "c:\DATEI1.txt" For Output As #1
strBla = Cells(1, 1)
Print #1, strBla
Close #1
End Sub
"Hallo Welt" in die Textdatei c:\Datei1.txt geschrieben werden.
Jetzt gibt es nicht nur einen Inhalt in der Zelle A1, sondern auch in A2 und A3.
A
1 Hallo Welt
2 Hallo Europa
3 Hallo Deutschland
Ist es möglich die Zellen A1 bis A3 zu markieren und den kompletten Inhalt auf einmal in eine Textdatei zu kopieren? Tatsächlich sind es bei mir nicht 3 Zeilen, sondern bis zu 5000, also der Range("A1:A5000").
Gruss Gerald