nach vielen vergeblichen Versuchen und Recherchen in diversen Foren, hoffe ich hier die Lösung zu finden.
Ich möchte eigentlich nur ganz einfach aus einer Excel-Mappe ein Tabellenblatt in eine neue eigenständige noch nicht vorhandene Datei kopieren.
Bei mir kommt bei Verwendung ständig der Fehler, dass die Datei nicht existiert, das ja auch richtig ist.
Hier mein Code, der in den Foren ähnlich dafür verwendet wurde.
path_file = ThisWorkbook.Path + "\"
Set QuellWs = ActiveSheet ' Auslesen der aktuellen Tabellennummer (Gesamttabelle)
sheetNr = Worksheets("A_Jgd").Index 'Auslesen der Tabellenblattnummer für Zielverzeichnis
Text1 = ZielWs.name
Text2 = QuellWs.name
filename = Text2 + "_" + Text1 ' Dateiname
filename = filename + ".csv" ' Dateiendung
Workbooks.Open filename:=path_file + filename
ThisWorkbook.Activate
ActiveSheet.Move After:=Workbooks(filename).Sheets(1)
Sheets(1).Select
ActiveWindow.SelectedSheets.Delete
Workbooks(filename).Save
Workbooks(filename).Close
Application.DisplayAlerts = True