Thema: Textexport in CSV-Datei mit beliebigen Feldtrennern

StandardModule: basMain

Sub Export()
   Dim iRow As Integer, iCol As Integer
   Dim sTxt As String, sSep As String
   sSep = Range("G2").Value
   On Error GoTo ERRORHANDLER
   Close
   Open Range("G1").Value For Output As #1
   On Error GoTo 0
   For iRow = 1 To 5
      For iCol = 1 To 5
         sTxt = sTxt & Cells(iRow, iCol).Value & sSep
      Next iCol
      sTxt = Left(sTxt, Len(sTxt) - 1)
      Print #1, sTxt
      sTxt = ""
   Next iRow
   MsgBox "Datei wurde angelegt:" & vbLf & Range("G1").Value
   End
ERRORHANDLER:
   MsgBox "Bitte überprüfen Sie den Verzeichnisnamen!"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und TextExport