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

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Jörg
*****
Beiträge: 392
Registriert: Mo, 21.10.2013 12:05

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

Beitrag 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!
Zuletzt geändert von Jörg am So, 23.09.2018 16:46, insgesamt 1-mal geändert.
Gruß Jörg

Win 10 Pro AOO 4.1.15
mikeleb
*******
Beiträge: 1315
Registriert: Fr, 09.12.2011 16:50

Re: Mehrere Arbeitsblätter löschen

Beitrag von mikeleb »

Hallo,
lösche die Tabellen von "oben nach unten":

Code: Alles auswählen

For i=26 To 18 Step -1
Gruß,
mikeleb
Jörg
*****
Beiträge: 392
Registriert: Mo, 21.10.2013 12:05

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

Beitrag von Jörg »

Hallo mikeleb,
cool. Vielen Dank.
Aber warum ist das so?
Gruß Jörg

Win 10 Pro AOO 4.1.15
mikeleb
*******
Beiträge: 1315
Registriert: Fr, 09.12.2011 16:50

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

Beitrag 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.
Gruß,
mikeleb
Antworten