Thema: For Schleife für die Formatierung jeder zweiten Zeile

Hallo zusammen,

ich bräuchte eine For-Schleife, die mir die Zeilenhöhe jeder zweiten (bzw. dritten oder vierten) Zeile in einer Arbeitsmappe anpasst, idealerweise im verwendeten Bereich (evtl. über UsedRange.Rows.Count?)

Ich habe bereits angefangen, komme jedoch an besagter Stelle nicht weiter:

    Dim letztezeile As Integer

    letztezeile = ActiveSheet.UsedRange.Rows.Count

    Dim r As Integer

    

    For r = 1 To letztezeile

    

    With Rows("r:r").RowHeight = 50 step 2

    End With

    Next r

Hi,

Option Explicit



Sub til()

Dim letztezeile As Long

Dim r As Long

letztezeile = ActiveSheet.UsedRange.Rows.Count

For r = 1 To letztezeile Step 2

    Rows(r).RowHeight = 50

Next r

End Sub

VG, Boris

Es funktioniert. Danke dir Boris!