Office: VBA: CSV ";" statt ","

Hi,

kann ich in diesem Code vorgeben das ich die Trennzeichen in meiner CSV statt mit "," mit einem ";" trennen?

Ich habe zwar schon ein paar Lösungen getestet, aber so richtig hat das alles nicht geklappt.

Code:

Sub CSV()
'
' Schilder Makro

    Sheets("Schilder").Select
    Range("A1:C" & Range("'Auftragsdaten'!I2").Value).Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    strDesktop = Environ("USERPROFILE") & "\Desktop"
    strfile = strDesktop & "\" & Range("A1") & ".csv"
    ActiveSheet.SaveAs Filename:=strfile _
    , FileFormat:=xlCSV, CreateBackup:=False
    ActiveWindow.Close savechanges = False
    Sheets("Auftragsdaten").Select
    
    MsgBox "Die CSV-Datei wurde erfolgreich abgespeichert.", vbInformation, "Hinweis"
    
End Sub

und falls das da jetzt nicht so einfach ist, kann man diesen Code einbauen?!? Und wenn ja, wo?

ich habe ihn hinter "ActiveSheet.Paste" eingeschoben. Aber da bleibt es beim alten....

Code:

Cells.Replace What:=",", Replacement:=";", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

 

Hallo,

du verwendest in deinem VBA-Code die Worksheet-Methode
ActiveSheet.SaveAs Filename:=strfile, FileFormat:=xlCSV, CreateBackup:=False

Wenn du die Microsoft-Hilfe zur "SaveAs"-Methode des Worksheet-Objektes anschaust, wirst du folgende Hilfe finden:

d.h. also, wenn du den SaveAs-Befehlt wie folgt erweiterst:
ActiveSheet.SaveAs Filename:=strfile, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
verwendet Excel nicht die US-amerikanische Standardeinstellung, sondern die lokalen Einstellungen deines PCs, so wie sie in den Region-Einstellungen deiner Windows-Version enthalten sind. Dort gibt es eine Einstellmöglichkeit für Listentrennzeichen, zB. für Deutsch(Deutschland) oder Deutsch(Österreich) oder welches regionales Sprachgebiet du auch immer eingestellt hast auf deinem PC.
Wenn dort als Listentrennzeichen ";" eingestellt ist, müsste das Speichern deinen Wünschen entsprechend funktionieren, wenn du den zusätzlichen Parameter ", Local:=True" im SaveAs-Befehl hinzufügst.