LibreOffice-Forum

hallo zusammen,
ich bin im auf folgendes makro gestoßen:
Sub ZeilenFarbWechsel
Dim oDoc As Object
Dim oTextTabellen As Object
Dim oTabelle As Object
Dim oAnzZeil As Object
Dim oZeile As Object
Dim I As Integer
Dim J as Integer
oDoc = Thiscomponent
oTextTabellen = oDoc.getTextTables()
For I = 0 to oTextTabellen.count - 1
oTabelle = oTextTabellen(I)
If Right(oTabelle.Name,4) = "test" Then
oAnzZeil = oTabelle.getRows
Rem Wenn die erste Zeile farblos bleiben soll J=0 in J=1 ändern
For J = 1 To oAnzZeil.getCount() - 0 step 2
oZeile = oAnzZeil.getByIndex(J)
oZeile.BackColor = &HE8E8E8
Next J
End If
Next I
End Sub

PROBLEM: Das Makro wird bei den ersten zwei Tabellen ausgeführt, dann kommt folgender fehler: "BASIC-Laufzeitfehler. Es ist eine Ausnahme aufgetreten. Type: com.sun.star.lang.IndexOutOfBoundsException. Message: ."
Der Fehler scheint da (oZeile = oAnzZeil.getByIndex(J)) zu liegen. Änder ich das J zu "I" wird in jeder Tabelle eine Zeile später gefärbt (z.B. ist in Tab. 4 zeile 6 gefärbt, in tab. 5 zeile 7 u in tab 6 zeile 8). Der Fehler erscheint dann nicht mehr....
Kann mir da jemand helfen?
Danke im vorraus

Hallo

Der Fehler kommt aus der Zeile vorher - und füge bitte Quellcode hier zwischen -tags[/code] ein, damit das einigermassen lesbar wird.
Karolus