ich habe den folgenden Quellcode erstellt. Mein Porblem ist es das die CSV-Datei durch "," getrennt ist und nicht durch ";" wie ich es benötige. Ich arbeite mit Office 2010. Im Forum habe ich bereits den Lösungsansatz von https://www.herber.de/forum/archiv/1112to1116/1115787_Export_CSV_File_per_Makro.html
gefunden weiß jedoch nicht genau wie ich dieses bei mir unterbringen kann.
Über eure hilfe würde ich mich sehr freuen.
Gruß Marc
Sub StelleAutoFilterEin()
Selection.AutoFilter Field:=1, Criteria1:="x"
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Range("A1:S1000").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Columns("A:S").AutoFit
Dim pfad As String
Dim Wert1 As String
Dim Wert2 As String
pfad = "C:\Users\Praktikant-1\Desktop\"
Wert1 = InputBox("Bitte Maschine eingebn")
Wert2 = InputBox("Bitte Seriennummer eingebn")
datum = Format(Date, "yyyymmdd")
unterstrich = "_"
ActiveWorkbook.SaveAs Filename:=pfad & datum & unterstrich & Wert1 & unterstrich & Wert2 & _
unterstrich & "Messstellenplan", FileFormat:= _
xlCSV, CreateBackup:=False, Local:=True
ActiveWorkbook.Save
End Sub