VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Tabellenzeilen in Abhängigkeit einer zweiten Tabelle einblenden

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Ansicht