Hallo, ich habe folgenden Code im Loop (Variablen wurden vorher gedimmt und gesetzt)
--------------
'Schleife über alle Tabellenblätter start
For Each WS In Wb.Worksheets
'Visibility des Tabellenblatts speichern und Tabellenblatt einblenden
vis = WS.Visible
WS.Visible = xlSheetVisible
'Tabellenblatt in neue Arbeitsmappe kopieren, abspeichern und Arbeitsmappe schließen
WS.Copy
'Zieldatei speichern unter den individuellen Namen
ActiveWorkbook.SaveAs Filename:=Wb.Path & "\" & CC & "-" & Name & "-" & Monat
ActiveWorkbook.Close
'Tabellenblatt wieder ausblenden
WS.Visible = vis
Next WS
---------
meine Quelldatei hat 7 Sheets. Eines davon heißt Abba und ein zweites Betti. An welcher Stelle die stehe ist unbestimmt. Der Loop soll aber jetzt über alle sheets laufen außer über Abba und über Betti.
Aktuell löse ich das indem ich diese beiden sheets vorher lösche, so dass die sheets im Loop nicht mitlaufen. Das geht doch besser, oder?
Grüße!
|