Excel Filter in Makro setzen

Question

Wie kann ich ein Microsoft Excel Makro schreiben das einen Filter in einer bestimmten Spalte eines Arbeitsblatt setzt und die Zeilen nach einem bestimmten Wert filtert?

Answer 1

Hier ist ein Beispiel Makro

Sub SetFilter()

    Dim ws As Worksheet
    Dim filterColumn As Integer
    Dim filterCriteria As String

    ' Arbeitsblatt und Filtereinstellungen definieren
    Set ws = ThisWorkbook.Worksheets("Tabelle1") ' Arbeitsblattname anpassen
    filterColumn = 2 ' Spalte mit dem Filter (Spalte B = 2)
    filterCriteria = "DeinKriterium" ' Ersetze dies mit deinem Filterkriterium

    ' Prüfen, ob bereits ein Autofilter aktiv ist, falls nicht, aktivieren
    If Not ws.AutoFilterMode Then
        ws.Rows(1).AutoFilter ' Kopfzeile zum Filtern verwenden
    End If

    ' Autofilter auf die gewünschte Spalte und das Kriterium setzen
    ws.Rows(1).AutoFilter Field:=filterColumn, Criteria1:=filterCriteria

    MsgBox "Filter auf Spalte " & filterColumn & " mit Kriterium '" & filterCriteria & "' gesetzt."

End Sub