Gruppe
Extern
Problem
Wie kann ich erzwungene Zeilenumbrüch in einer Zelle in eine CSV-Datei übernehmen?
StandardModule: basMain
Sub cmdCSV_Click()
Dim iFile As Integer
Dim sFile As String, sDaten As String
sFile = Application.Path & "\testtext.csv"
iFile = FreeFile
sDaten = Range("A2").Value
Open sFile For Output As iFile
Do
Print #iFile, Left(sDaten, InStr(sDaten, vbLf) - 1)
sDaten = Right(sDaten, Len(sDaten) - InStr(sDaten, vbLf))
Loop While InStr(sDaten, vbLf) > 0
Print #iFile, sDaten
Close iFile
Workbooks.Open sFile
MsgBox "Weiter"
ActiveWorkbook.Close savechanges:=False
Kill sFile
End Sub