Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Export in *.CSV-Datei mit Kommata als Feldtrenner

Gruppe

TextExport

Problem

Wenn ich ein Tabellenblatt manuell als CSV-Datei speichere, wird das Semikolon als Feldtrenner eingesetzt. Wie kann ich stattdessen das Komma einsetzen?

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

StandardModule: basMain

Sub AlsCsvSpeichern()
   Dim sFile As String
   ActiveSheet.Copy
   sFile = Application.Path & "\testext.csv"
   ActiveWorkbook.SaveAs _
      FileName:=sFile, _
      FileFormat:=xlCSV
   ActiveWorkbook.Close savechanges:=False
   Workbooks.Open sFile
   Columns.AutoFit
   MsgBox "Weiter"
   ActiveWorkbook.Close savechanges:=False
   Kill sFile
End Sub