Thema Datum  Von Nutzer Rating
Antwort
21.12.2022 11:39:15 Karin
NotSolved
Blau Tabellenblatt einzeln als separate Datei speichern
21.12.2022 14:31:42 Gast46005
Solved
21.12.2022 15:49:54 Gast87061
NotSolved
21.12.2022 23:29:40 ralf_b
Solved
22.12.2022 12:13:47 Gast60101
NotSolved

Ansicht des Beitrags:
Von:
Gast46005
Datum:
21.12.2022 14:31:42
Views:
375
Rating: Antwort:
 Nein
Thema:
Tabellenblatt einzeln als separate Datei speichern

Option Explicit

Public Sub ExportWorksheets()
 
  Dim wks As Excel.Worksheet
  Dim wksCopy As Excel.Worksheet
 
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
 
  For Each wks In ThisWorkbook.Worksheets
    
    Call wks.Copy
    Set wksCopy = ActiveWorkbook.ActiveSheet
    
    Call wksCopy.SaveAs("C:\Temp\" & wks.Name, XlFileFormat.xlWorkbookDefault)
    Call wksCopy.Parent.Close
    
  Next
 
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
 
End Sub

 

* Application.ScreenUpdating

* Application.DisplayAlerts

 

Grüße

PS: Die Dateiendung wird hier nicht angegeben, da sie sich aus dem FileFormat ergibt.


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
21.12.2022 11:39:15 Karin
NotSolved
Blau Tabellenblatt einzeln als separate Datei speichern
21.12.2022 14:31:42 Gast46005
Solved
21.12.2022 15:49:54 Gast87061
NotSolved
21.12.2022 23:29:40 ralf_b
Solved
22.12.2022 12:13:47 Gast60101
NotSolved