Alle Blätter löschen bis auf eines
22.02.2006 13:59:51
windalf
wie kann ich alle Blätter (bis auf eines dessen Namen ich festlege) aus einem Workbook löschen lassen. Wenn es nur Worksheets sind funzt das wunderbar... Wie muss ich vorgehen wenn auch Diagramme enthalten sind...
Application.DisplayAlerts = False
For Each cs In Workbooks(Workbooks.Count).Sheets
cs.Delete
Next cs
For Each ws In Workbooks(Workbooks.Count).Worksheets
If ws.Name ws_name Then
ws.Delete
End If
Next cs
Application.DisplayAlerts = True
Das mit dem Diagrammen nimmt er mir zwangsweise übel da alle gelöscht werden...
Wie kann ich die ForEach abfrage formulieren um alle Sheets abzudecken... eine Variabel Sheet gibt es ja leider nicht sondern nur ein Sheets auflistungsobjekt.. wenn ich nicht weiss welche Indizes die Blätter haben und auch nicht wie diese heissen kann ich ja nich einfach mit einer Forschleife durchwandern...
Besten Dank
Gruß Windi