Excel-Zeilen nach Inhalt über Button und VBA ausblenden?
Hallo zusammen,
ich möchte in Excel mithilfe eines Buttons und VBA bestimmte Zeilen ausblenden.
Das ganze soll wie folgt wirken:
Klickt man auf den Button sucht Excel nach Zeilen die in Spalte C den Inhalt "ohne Angaben" enthalten und blendet alle Zeilen aus welche diesen Text in Zelle C enthalten.
Wie kann man das realisieren?
Dirk
1 Antwort
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Microsoft Excel
Hallo,
dazu kannst du dem Button diesen Code zuweisen:
Private Sub CommandButton1_Click()
Dim lZei As Long, z As Long
On Error GoTo Errorhandler
Application.ScreenUpdating = False
With ActiveSheet
lZei = .Range("C" & Rows.Count).End(xlUp).Row
For z = 1 To lZei
.Range("C" & z).EntireRow.Hidden = False 'Zeile einblenden
If .Range("C" & z).Value = "ohne Inhalt" Then
.Range("C" & z).EntireRow.Hidden = True 'Zeile ausblenden
End If
Next z
End With
Errorhandler:
Application.ScreenUpdating = True
End Sub