Als Kriterium wird ein Array verwendet. Dieses kannst du aber auch ganz "normal" definieren und verwenden:
Schau mal dieses Beispiel:
Public Sub FilterRows()
Dim avnt As Variant
Dim rng As Range
Dim strCriteria As String
strCriteria = Range("C1").Text
Set rng = Range("A1")
' Alten Filter löschen
rng.AutoFilter
' Array intialsieren
ReDim avnt(1 To 2)
avnt(1) = "A"
avnt(2) = strCriteria
' Filter aktivieren
rng.AutoFilter Field:=1, Criteria1:=avnt, Operator:=xlFilterValues
End Sub
|