Hallo, ich habe ein Makro geändert welches eine in Excel aufgezogene Range als *.csv speichert.

Das Speichern und schließen per VBA erstellt eine unerwünschte Komma-getrennte Datei.

Speichere ich die erstellte *.CSV per STRG+S und Schließe diese dann, ist die Datei korrekt semikolon getrennt gespeichert.

Ich bin ratlos und bitte um Hilfe. mfg. Ulsis

Option Explicit

Sub RangetoCSV_Export()  'nach Bsp. Kutools "ExportRangetoFile"

Dim Rng As Range
Dim WorkRng As Range
 
Dim xFile As Variant
Dim xFileString As String
On Error Resume Next
Set WorkRng = Application.Selection
Application.ActiveSheet.Copy        'Kopiert in neues Workbook unter "Mappe_n)
Application.ActiveSheet.Cells.Clear 'löscht alle Zellen in neuer Mappe_n
WorkRng.Copy Application.ActiveSheet.Range("A1") 'Kopiert "Bereich/Range" ab A1 in Mappe_n

Set xFile = CreateObject("Scripting.FileSystemObject") '???????

'Speichert Datei unter Auswahl oder einzugebenden Dateinamen als CSV

xFileString = Application.GetSaveAsFilename("", filefilter:="Semicolon Separated Text (*.CSV), *.CSV")

Application.ActiveWorkbook.SaveAs Filename:=xFileString, FileFormat:=xlCSV, CreateBackup:=False
'======================================================================================
'==  Das speichern und schließen der Datei funktioniert nicht. Ich muss die          ==
'==  *.csv- Datei speichern (STRG+S) vor dem Schließen, sonst Comma statt Semicolon  ==
'======================================================================================
'Application.ActiveWorkbook.Save
'Application.ActiveWorkbook.Close True
           
End Sub