Text (SQL) aus mehrzeiligen Zellinhalten schreiben
Andy
ich möchte gerne mit dem folgenden Code den Inhalt der Zellen A1, A2, A3 usw. untereinander in eine Datei schreiben:
Sub SQL_Datei_schreiben()
Open "D:\output.sql" For Output As #1
Range("A1").Select
For Each treffer In Range("A1:A500")
If treffer.Value > "" Then
Z = treffer.Row
ID = Cells(Z, 1).Value
Print #1, ID;
End If
Next
Close #1
End Sub
soweit funktioniert das auch. Jedoch steht in einigen Zellen der Quelldatei zwei oder mehrzeiliger Text. In der neuen Datei werden in diesen Fällen für die entsprechende Zelle mehrere Zeilen in die neue Datei geschrieben.
Wie kann man es erzwingen, dass der gesamte Text, der in einer Zelle steht, jeweils in eine Zeile geschrieben wird?
Gruß
Klaus25
Anzeige