Thema Datum  Von Nutzer Rating
Antwort
Rot Ergänzung VBA Code
 10.05.2023 10:51:54 Newbiez54
NotSolved
10.05.2023 12:42:47 Gast72415
NotSolved

Ansicht des Beitrags:
Von:
Newbiez54		 Datum:
10.05.2023 10:51:54		 Views:
913		 Rating:
     
Antwort:
  Ja
Thema:
Ergänzung VBA Code

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Ergänzung VBA Code
 10.05.2023 10:51:54 Newbiez54
NotSolved
10.05.2023 12:42:47 Gast72415
NotSolved