Hallo Zusammen
Ich habe eine Excel Datei welche 8 Tabellenblätter hat. Ich möchte vier dieser Tabellenblätter (Werte PG 30, Werte PG 31, Werte PG 32, Werte PG 33) durch das makro separat in verschiedene ordner abspeichern, auch soll es mich jeweils nach dem zu speichernden Dateinamen fragen.
Ich habe folgendes versucht, komme aber nicht weiter. die ganze zeit erhalte ich Fehlermeldungen...
Dim FileName As String
Dim Path1 As String
Dim Path2 As String
Dim Path3 As String
Dim Path4 As String
'Prompt user for the file name to be used
FileName = InputBox("Enter the file name:", "Save As")
'Specify the file paths for each sheet to be saved
Path1 = "I:\02_PM_ZAM\Tools\Tools_Einkauf\OutOfStock_Ablage\OutOfStock_PG 30\OutOfStock laufendes Jahr\" & FileName & ".xlsx"
Path2 = "I:\02_PM_ZAM\Tools\Tools_Einkauf\OutOfStock_Ablage\OutOfStock_PG 31\OutOfStock laufendes Jahr\" & FileName & ".xlsx"
Path3 = "I:\02_PM_ZAM\Tools\Tools_Einkauf\OutOfStock_Ablage\OutOfStock_PG 32\OutOfStock laufendes Jahr\" & FileName & ".xlsx"
Path4 = "I:\02_PM_ZAM\Tools\Tools_Einkauf\OutOfStock_Ablage\OutOfStock_PG 33\OutOfStock laufendes Jahr\" & FileName & ".xlsx"
'Copy and save the specific sheets to their corresponding paths
Sheets("Werte PG 30").Copy
ActiveWorkbook.SaveAs Filename:=Path1, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Sheets("Werte PG 31").Copy
ActiveWorkbook.SaveAs Filename:=Path2, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Sheets("Werte PG 32").Copy
ActiveWorkbook.SaveAs Filename:=Path3, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Sheets("Werte PG 33").Copy
ActiveWorkbook.SaveAs Filename:=Path4, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Sieht jemand wo mein Fehler liegt?
Gruss
Newbie
|