ich möchte mehrere Arbeitsblätter löschen.
Index 18 bis 26
der nachstehende Code löscht allerdings "nur"
Arbbl. Index nr. 18,20,22,24,26.
Abschließend folgende Fehlermeldung:
"Unzulässiger Wert oder Datentyp.
Index außerhalb des definierten Bereichs."
Code: Alles auswählen
sub Tab_loeschen
myDoc = thisComponent
Anzahl=myDoc.Sheets.count
For i=18 to 26
mySheet = myDoc.Sheets(i)
mydoc.Sheets.removebyName(mysheet.name)
next i
end sub
Vielen Dank!