'Das Macro öffnet alle xls und xlsx-Dateien im angegebenen Pfad und speichert das erste Tabellenblatt als csv-Datei mit Semikolon als Trennzeichen
'Dafür muss der folgende Macro-Code in der PERSONAL.XLSB gepeichert werden  (Hinweise zum Vorgehen Googlen: Erstellen und Speichern sämtlicher Makros in einer einzelnen Arbeitsmappe)
' und die beiden Pfade müssen anegepasst werden:


Sub csv_erzeugen_aus_ExcelDatei()

Dim csvPfad As String
Dim csvDatei As String
csvPfad = "C:\Users\ExcelVerarbeitung\" '<- Pfad für csv-Dateien '\' am Ende!

 Application.SheetsInNewWorkbook = 1
 Set FS = CreateObject("Scripting.FileSystemObject")
 Set Folder = FS.GetFolder("C:\Users\ExcelVerarbeitung")   '<- Pfad für Excel-Dateien, kein '\' am Ende!
  For Each file In Folder.Files
 If file.Name Like "*.xls*" Or file.Name Like "*.xlsx*" Then

 csvDatei = Left$(file.Name, InStr(file.Name, ".") - 1) & ".csv"
 Set wb = Workbooks.Open(file.Path, ReadOnly:=False, UpdateLinks:=False)
 Set wb2 = Workbooks.Add
 wb.Sheets(1).Range("A:Z").Copy wb2.Sheets(1).Range("A1")

 wb2.SaveAs csvPfad & csvDatei, FileFormat:=xlCSV, local:=True   ' local:=True setzt stadadrdmäßig das Semikolon als Trenner, sonst würde ein Komma verwendet (csv: Comma Separated Values)

 wb2.Close False
 wb.Close False
 End If
 Next
 End Sub