Gruppe
Allgemein
Bereich
Ansicht
Thema
Tabellenzeilen in Abhängigkeit einer zweiten Tabelle einblenden
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.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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