Zeilen mit bestimmten Werten per Makro ausblenden

Sie bearbeiten eine umfangreiche Tabelle. Dabei möchten Sie einige Zeilen automatisch ausblenden, falls bestimmte Werte darin eine Bedingung erfüllen.

In manchen Fällen können Sie diese Aufgabe bereits mit dem Autofilter von Excel lösen. Der filtert jedoch die Zellen aus, die eine Bedingung nicht erfüllen. Um auf das gewünschte Ergebnis zu kommen, muss man die Bedingung quasi äverkehrt herumô formulieren. Besser und universeller funktioniert ein Makro. Darin können Sie auch mehrere komplexe Bedingungen miteinander kombinieren. Führen Sie in der betreffenden Arbeitsmappe den Befehl »Extras | Makro | Makros« aus. Geben Sie einen Makronamen wie »DatenAusblenden« ein und klicken Sie auf »Erstellen«. Nun geben Sie im geöffneten Visual-Basic-Editor beispielsweise die folgenden Befehlszeilen ein:

Sub DatenAusblenden() 

Application.ScreenUpdating = False 

For i = 1 To Cells(Rows.Count,1).End(xlUp).Row 

  If Cells(i, 1).Value > 10 Then 

    Rows(i).EntireRow.Hidden = True 

  End If 

Next i 

Application.ScreenUpdating = True 

End Sub

Beenden Sie die Eingabe mit dem Befehl »Datei | Schließen und zurück zu Microsoft Excel«. Das Makro schaltet zunächst die Aktualisierung der Bildschirmanzeige während der Bearbeitung aus. Dann durchläuft es in einer Schleife nacheinander alle Datenzeilen. Die Programmzeile »If Cells(i, 1).Value > 10« prüft in diesem Beispiel, ob der Wert in der Spalte »1« der jeweiligen Zeile »i« größer als 10 ist. Diese Bedingung können Sie individuell formulieren. Alle Zeilen, die diese Bedingung erfüllen, formatiert das Makro mit dem nächsten Befehl als ausgeblendet. Zum Schluss wird die Bildschirmaktualisierung wieder aktiviert. Beachten Sie beim Einsatz der Filterfunktion, dass die nachfolgende Verwendung der Autofilter-Funktion das Ergebnis des Makros ignoriert. Wenn Sie beide Methoden kombinieren möchten, führen Sie auf jeden Fall das Makro zuletzt aus.