Office: Mit VBA Zeilen ausblenden

Hallo liebes Forum,

ich würde gerne in dem angehängten Dokument alle Zeilen in der Range 1-100 ausblenden, die in Spalte B ein x haben. Könnt Ihr mir da vielleicht einen VBA code für schreiben? Es muss bitte VBA sein und nicht über die Filterfunktion.

Das wäre prima, vielen Dank.

Gruß
Finley78

 

Hi Finley,

Code:

Sub Ausblenden()
   Dim lngLetzte As Long
   Dim lngZeile As Long
   lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
   For lngZeile = lngLetzte To 5 Step -1
      Cells(lngZeile, 1).EntireRow.Hidden = Cells(lngZeile, 2) = "x"
   Next lngZeile
End Sub

Bis später,
Karin

 

Vielen Dank - das klappt!