CSV mit Komma statt Semikolon

Forumthread: CSV mit Komma statt Semikolon

03.02.2018 17:48:33

Maris

Hallo zusammen,
ich verwende Excel 2016 und habe einen Code bekommen:

Public Sub CSV_Artikel_Click() 'Optionbutton
'On Error GoTo Fehler
MsgBox "Noch im Test"
Call Var_Bel
If CSVError Then Exit Sub ' Pfad fehlt
With TB2
LR = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
If LR > 1 Then
'*** Namen zusammenbauen
CSVName = "Import_Artikel_" & Format(Now, "YYYYMMDD_hh_mm_ss") & Ext
'*** Blatt als eigene xlsx erstellen
.Copy
Set WB2 = ActiveWorkbook
'*** als csv abspeichern und beenden
Application.DisplayAlerts = False
WB2.SaveAs Filename:= _
Pfad & CSVName, FileFormat:=xlCSVUTF8, CreateBackup:=False
Application.Wait (Now + TimeValue("0:00:03")) 'Warten
WB2.Close , False
'***Daten löschen
JaNein = MsgBox("CSV erzeugt!" & vbLf & vbLf & _
"Import-Daten löschen", vbQuestion + vbYesNo, "Fertig")
If JaNein = vbYes Then
'*** Ab zeile 2 löschen
.Rows(2).Resize(LR - 1).ClearContents
'*** Mainnumber resetten
TB1.Range("Eingabe_mainnumber").ClearContents
End If
Else
MsgBox "Keine Daten für CSV vorhanden"
End If
End With
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
Application.DisplayAlerts = True
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub

Wenn dieser ausgeführt wird, dann wird zwar die CSV erstellt aber mit Kommas und nicht mit Semikolons.
Hat jemand eine Idee?
Gruß
Gruß
Maris

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: CSV mit Komma statt Semikolon

03.02.2018 18:04:50

onur
AW: CSV mit Komma statt Semikolon

03.02.2018 18:16:56

Maris

AW: CSV mit Komma statt Semikolon

03.02.2018 18:16:56

Maris

Das hat geholfen!

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne Excel 2016 und erstelle deine Daten, die du als CSV speichern möchtest.
Öffne den VBA-Editor mit ALT + F11.

Füge den folgenden VBA-Code in ein neues Modul ein:

Public Sub CSV_Artikel_Click() 'Optionbutton
   Dim LR As Long
   Dim CSVName As String
   Dim Pfad As String
   Dim Ext As String
   Ext = ".csv"
   Pfad = "C:\Dein\Pfad\Hier\" ' Pfad anpassen

   With ThisWorkbook.Sheets(1)
       LR = .Cells(.Rows.Count, 1).End(xlUp).Row ' letzte Zeile der Spalte
       If LR > 1 Then
           CSVName = "Import_Artikel_" & Format(Now, "YYYYMMDD_hh_mm_ss") & Ext
           .Copy
           With ActiveWorkbook
               Application.DisplayAlerts = False
               .SaveAs Filename:=Pfad & CSVName, FileFormat:=xlCSVUTF8, CreateBackup:=False
               .Close False
           End With
           MsgBox "CSV erzeugt!"
       Else
           MsgBox "Keine Daten für CSV vorhanden"
       End If
   End With
End Sub

Führe das Makro aus. Du erhältst eine CSV-Datei mit Kommas als Trennzeichen.

Häufige Fehler und Lösungen

CSV erstellt, aber mit Semikolons:
- Überprüfe, ob in den Windows-Einstellungen als Listentrennzeichen ein Semikolon anstelle eines Kommas eingestellt ist. Ändere dies auf ein Komma.
Datei kann nicht gespeichert werden:
- Stelle sicher, dass der angegebene Pfad korrekt ist und dass du die nötigen Berechtigungen hast, um dort zu speichern.

Alternative Methoden

Falls du eine CSV-Datei mit Semikolons anstelle von Kommas benötigst, kannst du die Daten auch so exportieren:

Öffne deine Excel-Tabelle.
Gehe zu "Datei" > "Speichern unter".
Wähle den Dateityp "CSV (Comma delimited)".
Ändere das Listentrennzeichen in den Regionseinstellungen deines Computers.

Praktische Beispiele

Erstellung einer CSV-Datei mit Komma:

' Beispiel zur CSV-Erstellung mit Komma
Sub ExportToCSV()
  Dim ws As Worksheet
  Set ws = ThisWorkbook.Sheets("Tabelle1")
  ws.Copy
  ActiveWorkbook.SaveAs Filename:="C:\Dein\Pfad\Hier\export.csv", FileFormat:=xlCSV
  ActiveWorkbook.Close
End Sub

CSV-Datei mit spezifischen Trennzeichen: Nutze die Funktion TextToColumns, um deine Daten in Excel zu importieren, wenn sie mit Semikolons getrennt sind.

Tipps für Profis

Verwende xlCSVUTF8 als Dateiformat, um sicherzustellen, dass Sonderzeichen richtig angezeigt werden.
Automatisiere den Prozess durch das Erstellen von Makros, die regelmäßig CSV-Dateien generieren.
Teste verschiedene Excel-Versionen, da sich die Export-Einstellungen je nach Version unterscheiden können.

FAQ: Häufige Fragen

1. Wie kann ich eine CSV-Datei mit Semikolon statt Komma erstellen? Du kannst die Regionseinstellungen in Windows ändern, um Semikolons als Trennzeichen zu verwenden.

2. Gibt es eine Möglichkeit, CSV-Dateien direkt aus Excel zu exportieren? Ja, du kannst die "Speichern unter"-Funktion nutzen und die Datei als CSV (Comma delimited) speichern. Achte auf die Regionseinstellungen.

3. Was mache ich, wenn meine CSV-Datei nicht richtig formatiert ist? Überprüfe die Daten in Excel und stelle sicher, dass keine unerwünschten Formatierungen oder Leerzeilen vorhanden sind, bevor du die Datei speicherst.