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.