Thema Datum  Von Nutzer Rating
Antwort
Rot Speichern unter der Tabellenblätter
09.05.2023 16:26:32 Newbiez54
NotSolved
09.05.2023 16:55:59 Gast92414
NotSolved
09.05.2023 19:02:55 Gast35366
NotSolved
09.05.2023 19:13:48 Gast73919
NotSolved
10.05.2023 07:50:30 Newbiez54
NotSolved
10.05.2023 16:22:17 Gast48822
NotSolved

Ansicht des Beitrags:
Von:
Newbiez54
Datum:
09.05.2023 16:26:32
Views:
1029
Rating: Antwort:
  Ja
Thema:
Speichern unter der Tabellenblätter

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

 

 


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 Speichern unter der Tabellenblätter
09.05.2023 16:26:32 Newbiez54
NotSolved
09.05.2023 16:55:59 Gast92414
NotSolved
09.05.2023 19:02:55 Gast35366
NotSolved
09.05.2023 19:13:48 Gast73919
NotSolved
10.05.2023 07:50:30 Newbiez54
NotSolved
10.05.2023 16:22:17 Gast48822
NotSolved