Tabellenzeilen in Abhängigkeit einer zweiten Tabelle einblenden

Thema: Allgemein - Gruppe Ansicht

Arbeitsmappe

151501    117100

Problem: Die ersten 25 Zellen in Spalte A sollen auf Inhalt geprüft werden. Ist die jeweilige Zelle nicht leer, soll die entsprechende Zeile in Tabelle2 eingeblendet werden.

StandardModule: basMain

Sub PruefenEinblenden()
   Dim iRow As Integer
   For iRow = 1 To 25
      If Not IsEmpty(Cells(iRow, 1)) Then
         Worksheets("Tabelle2").Rows(iRow).Hidden = False
      End If
   Next iRow
End Sub