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

Ansicht des Beitrags:
Von:
Gast72415		 Datum:
10.05.2023 12:42:47		 Views:
468		 Rating:
     
Antwort:
  Ja
Thema:
Ergänzung VBA Code

ungetestet:

  
  Dim FileName As String
  Dim wb As Workbook
  Dim i As Long
  
  i = 0
  Do While i <= 3
    
    'HINWEIS: Der Pfad in InitialFileName MUSS existieren, damit er vorausgewählt werden kann
    FileName = Application.GetSaveAsFilename( _
                  Title:="Dateiname für #" & i, _
                  FileFilter:="Excel-Mappe (*.xlsx), *.xlsx", _
                  InitialFileName:="I:\02_PM_ZAM\Tools\Tools_Einkauf\OutOfStock_Ablage\" & _
                                   "OutOfStock_PG 3" & i & "\OutOfStock laufendes Jahr\Mappe1.xlsx")
    
    If FileName <> False Then
      Set wb = ActiveWorkbook
      Call wb.Sheets("Werte PG 3" & i).Copy
      Call ActiveWorkbook.SaveAs(FileName:=FileName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False)
      Call ActiveWorkbook.Close(SaveChanges:=False)
    Else
      Call MsgBox("Dokument #" & i & " wurde beim Speichervorgang übersprungen.", vbExclamation)
    End If
    
    i = i + 1
    
  Loop

 

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
10.05.2023 10:51:54 Newbiez54
NotSolved
Blau Ergänzung VBA Code
 10.05.2023 12:42:47 Gast72415
NotSolved