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

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

Moderator: Moderatoren

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

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

Beitrag von Jörg » So, 23.09.2018 14:41

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.5.

mikeleb
******
Beiträge: 723
Registriert: Fr, 09.12.2011 16:50

Re: Mehrere Arbeitsblätter löschen

Beitrag von mikeleb » So, 23.09.2018 15:04

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: 352
Registriert: Mo, 21.10.2013 12:05

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

Beitrag von Jörg » So, 23.09.2018 16:47

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

Win 10 Pro AOO 4.1.5.

mikeleb
******
Beiträge: 723
Registriert: Fr, 09.12.2011 16:50

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

Beitrag von mikeleb » So, 23.09.2018 18:02

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