ich verwende folgenden Code, um am Ende eines Makros den Inhalt einer Textbox (in einer Userform) in einem Text-File abzuspeichern:
Sub SaveData()
Dim varPath As String, varRow As Long
varPath = Worksheets(1).Range("StoragePath").Value & Format(Now, "yyyymmdd-hhmmss") & "_" & _
Environ("Username") & ".txt"
Open varPath For Output As #1
Print #1, varSql 'entspricht dem Inhalt der Textbox
Close #1
End Sub
Das klappt soweit, mein Problem dabei ist nur, dass die Zeilenumbrüche (also neue Zeilen) dabei verloren gehen, d.h. im Text-File werden zwar die Daten gespeichert, aber alle zusammenhängend und damit sehr unübersichtlich. Im Wesentlichen enthält die Textbox die Werte einer Spalte und zeigt jeden Wert in einer neuen Zeile an - so hätte ich es gerne auch im Text-File.
Ich bekomme das richtige Ergebnis, wenn ich jede Zeile einzeln in das Text-File schreibe, das dauert in meinem Fall allerdings aufgrund der Menge der Daten relativ lange und ist daher nicht ideal.
Hat jemand vielleicht einen Tipp für mich dazu ?
Vielen Dank im Voraus,
Max