ich lasse aus einer Tabelle Textdateien erstellen:
https://www.herber.de/forum/archiv/936to940/t938647.htm#938760
Sub MakeTextInOne()
Dim n As Integer, i As Integer
n = 2
Do Until Cells(n, 1) = ""
If Rows(n).Hidden = False Then
Open strPath & Cells(n, 1) & ".txt" For Output As #1
Print #1, "ABC" & Trim(Cells(n, 1)) & "ABC"
Print #1, ABC" & Trim(Cells(n, 2)) & "ABC"
'und so weiter
Close 1
End If
n = n + 1
Loop
Exit Sub
nun benötige ich aber doch noch eine andere Option,
der Text soll nicht in einzelne Dateien geschrieben werden sondern in nur eine.
Also bislang wird für jede Zeile eine neue Textdatei erstellt,
es soll aber alles in eine Datei.
Da komme ich jetzt nicht weiter,
kann mir jemand einen Tipp geben?
Gregor