PROBLEM: zeilenfarbwechsel

[dkepay]

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

[karolus]

Hallo

Der Fehler kommt aus der Zeile vorher - und füge bitte Quellcode hier zwischen

Code: Alles auswählen

[code]

-tags[/code] ein, damit das einigermassen lesbar wird.

Code: Alles auswählen

Sub ZeilenFarbWechsel

    oDoc = Thiscomponent
    oTextTabellen = oDoc.getTextTables()

    For i = 0 to oTextTabellen.count - 1
        oTabelle = oTextTabellen( i )
        If Right(oTabelle.Name,4) = "test" Then
            Zeilen = oTabelle.getRows()
            Zeilenanzahl = Zeilen.getCount()
            Rem Wenn die erste Zeile farblos bleiben soll j=0 in j=1 ändern

            For j = 1 To  Zeilenanzahl - 1 step 2
                Zeile = Zeilen.getByIndex( j )
                Zeile.BackColor = &HE8E8E8
            Next j
        End If

    Next i

End Sub

Karolus