Prüfen, ob Zeilen in Excel ausgeblendet sind und darauf reagieren
Schritt-für-Schritt-Anleitung
Um zu prüfen, ob in einem bestimmten Bereich von Zeilen in Excel welche ausgeblendet sind, kannst Du entweder ein VBA-Makro oder eine Excel-Formel verwenden. Hier sind die Schritte für beide Methoden:
VBA-Makro:
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
-
Füge den folgenden Code in das Modul ein:
Sub PrüfenObAusgeblendet()
Dim i As Integer
[N10] = "Aktiv"
For i = 32 To 64
If Rows(i).Hidden = True Then
[N10] = "Nicht aktiv."
Exit Sub
End If
Next
End Sub
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Drücke ALT + F8, wähle PrüfenObAusgeblendet und klicke auf Ausführen, um das Makro auszuführen.
Excel-Formel:
-
Klicke auf die Zelle, in der das Ergebnis angezeigt werden soll (z.B. N10).
-
Gib die folgende Formel ein:
=WENN(TEILERGEBNIS(3;A32:A64)=ANZAHL2(A32:A64);"Alles eingeblendet";"Inaktiv")
-
Drücke Enter.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn Du keine VBA verwenden möchtest, kannst Du auch den Autofilter verwenden, um die Zeilen auszublenden. Hier ist eine einfache Methode:
- Wähle den Bereich aus, den Du filtern möchtest.
- Gehe zu
Daten und klicke auf Filter.
- Wähle die gewünschten Filteroptionen aus, um Zeilen auszublenden.
Wenn Du dann prüfen möchtest, ob Zeilen ausgeblendet sind, kannst Du die oben genannte Formel verwenden.
Praktische Beispiele
-
Beispiel 1: Du möchtest prüfen, ob in den Zeilen 32 bis 64 einer Tabelle Daten ausgeblendet sind. Verwende das VBA-Makro, um automatisch "Aktiv" oder "Nicht aktiv" in Zelle N10 anzuzeigen.
-
Beispiel 2: Wenn Du mit Autofilter arbeitest und einige Zeilen ausgeblendet hast, kannst Du die Formel verwenden, um den Status der Sichtbarkeit zu überwachen.
Tipps für Profis
-
Nutze die Möglichkeit, das VBA-Makro automatisch bei Änderungen in der Tabelle auszuführen. Das kannst Du tun, indem Du das Makro in das Worksheet_Change-Ereignis einfügst.
Private Sub Worksheet_Change(ByVal Target As Range)
Call PrüfenObAusgeblendet
End Sub
-
Bei größeren Datenmengen kann es hilfreich sein, den Code auf Performance zu optimieren, indem Du Application.ScreenUpdating = False am Anfang und Application.ScreenUpdating = True am Ende des Makros verwendest.
FAQ: Häufige Fragen
1. Muss ich das Makro jedes Mal manuell ausführen?
Ja, standardmäßig musst Du das Makro manuell starten. Du kannst es jedoch auch so einstellen, dass es automatisch bei Änderungen in der Tabelle ausgeführt wird.
2. Funktioniert das auch in Excel Online?
VBA-Makros funktionieren nicht in Excel Online. Du musst die Desktop-Version von Excel verwenden, um diese Funktionen nutzen zu können.