Thema Datum  Von Nutzer Rating
Antwort
09.05.2023 16:26:32 Newbiez54
NotSolved
09.05.2023 16:55:59 Gast92414
NotSolved
Rot Speichern unter der Tabellenblätter
 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:
Gast35366		 Datum:
09.05.2023 19:02:55		 Views:
1028		 Rating:
     
Antwort:
  Ja
Thema:
Speichern unter der Tabellenblätter		 
Sub Makro1()

Dim FileName As String
Dim Path1 As String
Dim Path2 As String
Dim Path3 As String
Dim Path4 As String
Dim wb As Workbook

'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 = "R:\OutOfStock_PG 30\" & FileName & ".xlsx"
Path2 = "R:\OutOfStock_PG 40\" & FileName & ".xlsx"
Path3 = "R:\OutOfStock_PG 50\" & FileName & ".xlsx"
Path4 = "R:\OutOfStock_PG 60\" & FileName & ".xlsx"

Set wb = ActiveWorkbook

'Copy and save the specific sheets to their corresponding paths
wb.Sheets("WertePG 30").Copy
ActiveWorkbook.SaveAs FileName:=Path1, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close SaveChanges:=False
wb.Sheets("WertePG 40").Copy
ActiveWorkbook.SaveAs FileName:=Path2, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close SaveChanges:=False
    
wb.Sheets("WertePG 50").Copy
ActiveWorkbook.SaveAs FileName:=Path3, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close SaveChanges:=False
    
    wb.Sheets("WertePG 60").Copy
ActiveWorkbook.SaveAs FileName:=Path4, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close SaveChanges:=False
End Sub

Ein Dankeschön wäre nett.

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
09.05.2023 16:26:32 Newbiez54
NotSolved
09.05.2023 16:55:59 Gast92414
NotSolved
Rot Speichern unter der Tabellenblätter
 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