Hallo Zusammen
Wie kann man den untenstehenden Code so umschreiben das er mich nach dem Dateinamen für jede der vier Dateien fragt, bevor das makro abspeichert.
Stand jetzt, fragt es einmal nach dem Namen und speichert die vier Dateien alle mit dem gleichen Namen.
Code:
Dim FileName As String
Dim Path1 As String
Dim Path2 As String
Dim Path3 As String
Dim Path4 As String
Dim wb As Workbook
FileName = InputBox("Enter the file name:", "Save As")
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"
Set wb = ActiveWorkbook
wb.Sheets("Werte PG 30").Copy
ActiveWorkbook.SaveAs FileName:=Path1, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
wb.Sheets("Werte PG 31").Copy
ActiveWorkbook.SaveAs FileName:=Path2, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
wb.Sheets("Werte PG 32").Copy
ActiveWorkbook.SaveAs FileName:=Path3, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
wb.Sheets("Werte PG 33").Copy
ActiveWorkbook.SaveAs FileName:=Path4, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
|