Hallo,
dankenswerterweise hat mir hier jemand mein Makro schon so geändert (weiterentwickelt) dass alle
Tabellenblätter einer Datei als csv exportiert werden. Beim Ausführen des Makros kann ich den
Ordner auswählen, in den die Dateien exportiert werden.
Lieber wäre mir die csv Dateien werden immer in den Ordner F:\Dokumente\csv exportiert
Wenn jemand mir das Makro ändern könnte wäre das super.
Ich selbst habe leider kaum VBA Kenntnisse

Sub ExportSheetsToCSV()
Dim xWs As Worksheet

Dim xcsvFile As String, sFolder As String

With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
sFolder = .SelectedItems(1)
End If
End With

If sFolder = "" Then Exit Sub

For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xcsvFile = sFolder & "\" & xWs.Name & ".csv"

Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, _
FileFormat:=xlCSV, CreateBackup:=False, Local:=True
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub

Gruß Silke