Gruppe
Allgemein
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