habe kleines Problem möchte Blätter löschen alle ausser ein bestimmtes, mein Code beziehts sich auf Tabelle1,2,3
Workbooks.Open Filename:="E:\DATEN\SIG\works_für_Konfig.xls"
Windows("works_für_Konfig.xls").Activate
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
ActiveWindow.SelectedSheets.Delete
die Array sollte lauten alle (Blätter ändern mit Name) ausser zB. Blatt "ZUSAMMENZUG" also kurz alles Blätter löschen ausser das auserwählte
DANKE für Hilfe
gruss geri