Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeilenumbrüche in eine *.CSV-Datei übernehmen

Gruppe

TextExport

Problem

Wie kann ich erzwungene Zeilenumbrüch in einer Zelle in eine CSV-Datei übernehmen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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