VBA - mehrere Zeilen ausblenden
#1
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
Antworten Top
#2
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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • so.egal
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 2 Gast/Gäste