Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Leere und Zellen mit 0 aus-/einblenden

Gruppe

Hyperlink

Problem

Wie kann ich über eine Schaltfläche alle Zeilen, deren Zelle in Spalte A leer ist oder eine 0 beinhaltet über eine Schaltfläche ein- und ausblenden?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Ausblenden()
   Dim iRow As Integer, iRowL As Integer
   If ActiveSheet.Buttons(Application.Caller).Caption = "Ausblenden" Then
      iRowL = Cells(Rows.Count, 1).End(xlUp).Row
      For iRow = 1 To iRowL
         If IsEmpty(Cells(iRow, 1)) Then
            Rows(iRow).Hidden = True
         ElseIf WorksheetFunction.IsText(Cells(iRow, 1)) Then
         ElseIf Cells(iRow, 1).Value = 0 Then
            Rows(iRow).Hidden = True
         End If
      Next iRow
      ActiveSheet.Buttons(Application.Caller).Caption = "Einblenden"
   Else
      Rows.Hidden = False
      ActiveSheet.Buttons(Application.Caller).Caption = "Ausblenden"
   End If
End Sub