VBA - mehrere Zeilen ausblenden

[so.egal]

Hallo zusammen,

ich habe ein Problem. Ich möchte mehrere Zeilen ausblenden. wenn die Zelle B2 (bzw. B30, B59) nicht leer sind. Es sollen dann die Zeilen 1-28 (bzw. 29-57, 58-86) ausgeblendet werden.

Code:

Sub leere_Niveaus()

Dim i As Integer

For i = 2 To 30 Step 28
    Sheets("Brief 2 (GME)").Rows(i).Hidden = Sheets("Brief 2 (GME)").Cells(i, 2).Text = ""
  Next i
End Sub

Was muss ich anstatt Rows(i) setzen. So wird mir ja nur die Zeile 2 ausgeblendet.

LG Tina

[Kuwer]

Hallo Tina,

Code:

Sub leere_Niveaus()
  Dim i As Long
  With Sheets("Brief 2 (GME)")
    For i = 2 To 58 Step 28
      .Rows(i).Resize(28).Hidden = .Cells(i, 2).Text = ""
    Next i
  End With
End Sub

Gruß Uwe