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