Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Tabellenzeilen in Abhängigkeit einer zweiten Tabelle einblenden

Gruppe

Ansicht

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