ich möchte Daten in eine TXT-Datei speichern. Die Datensätze sollen aber in der TXT-Datei kein CarrigeReturn am Datensatzende haben. Gibt es hier eine Möglichkeit das zu realisieren?
Gruß in Netz von Ralf
Sub Speichern()
Dim liZeile As Integer, lstrInhalt As String
For liZeile = 1 To 20
lstrInhalt = lstrInhalt & " " & Range("A" & liZeile).Value
Next
Open "deinPfad\deinDateiname.txt" For Output As #1
Print #1, lstrInhalt
Close
lstrInhalt = ""
End Sub
Dieser Code sammelt zuerst die Werte aus A1-A20 in der Variable lstrInhalt - die Werte werden durch " " (Leerzeichen) getrennt.
Danach wird der Inhalt aus lstrInhalt in eine Textdatei geschrieben.
Für deinPfad und -Dateiname musst du natürlich entsprechendes eintragen.
Wenn du ein anderes Trennzeichen willst, als das Leerzeichen, welches ich verwendete, musst du in der Zeile unter der For-Zeile das " " gegen z Bsp "," austauschen.
Konnte ich helfen?
Ciao
Thorsten