Seite 1 von 1

[Gelöst]Mehrere Arbeitsblätter löschen

Verfasst: So, 23.09.2018 14:41
von Jörg
Hallo Fachleute,
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
Wär schön, wenn jemand helfen könnte.
Vielen Dank!

Re: Mehrere Arbeitsblätter löschen

Verfasst: So, 23.09.2018 15:04
von mikeleb
Hallo,
lösche die Tabellen von "oben nach unten":

Code: Alles auswählen

For i=26 To 18 Step -1

Re: [Gelöst]Mehrere Arbeitsblätter löschen

Verfasst: So, 23.09.2018 16:47
von Jörg
Hallo mikeleb,
cool. Vielen Dank.
Aber warum ist das so?

Re: [Gelöst]Mehrere Arbeitsblätter löschen

Verfasst: So, 23.09.2018 18:02
von mikeleb
Hallo,
wenn du die Tabelle 18 löschst, rutschen alle nachfolgenden Tabellen eine Nummer herunter. Die frühere 19 ist jetzt die 18 und die frühere 20 ist nun die 19. Jetzt löschst du die (neue) 19 und das Spiel beginnt von vorn.