Hallo liebe Experten,
ich habe folgenden Code in meine Userform eingefügt.
Private Sub CommandButton1\_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
For zeile = 2 To 20
If Cells(zeile, 2) = "" Then Exit For
Dateiname = "C:\Test\Quelle.txt"
Set a = fs.CreateTextFile(Dateiname, True)
Commandozeile = Chr(34) & Cells(zeile, 1) & Chr(34) & " " & Chr(34) & Cells(zeile, 2) & Chr(34)
a.writeline (Commandozeile)
a.Close
Next zeile
End Sub
Es funktioniert auch fast alles. Allerdings will ich jetzt dass beim Click auf den Button nicht nur die zuletzt beschriebene Zeile ins txtfile geschrieben wird sondern alle Zeilen die vorhanden sind außer der Ersten (Überschrift).
Ich hoffe ihr könnt mir helfen. Ich komm einfach nicht weiter.
Liebe Grüße
Spargel54321