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