<tabbox jede 2. Zeile färben>
Sub ZeilenFormatieren() Dim Zeile As Long
with Tabelle1 For Zeile = 2 To .usedRange.Row.Count
If Zeile Mod 2 = 0 Then .Rows(Zeile).Interior.colorindex = 33 (Zahl ist Farbcode) End If
Next Zeile End with
End Sub
<tabbox Tab 2>
<tabbox Tab 3>
<tabbox Tab 4>
<tabbox Tab 5>
</tabbox>
Bildeigenschaften