Excel-VBA Autofilter

Question

Hallo,

ich habe mal wieder ein Problem.

Ich möchte das mein Makro den Filterwert aus Zelle S2 bezieht. Das klappt mit dem u.g. Baustein auch gut. Nun soll er aber automatisch alle Werte auswählen, wenn der in Zelle s2 ausgewählte wert nicht vorhanden ist.

Hat jemand eine Idee?

Field:=3, Criteria1:=Range("S2").Value, _
Operator:=xlAnd
End With

Answer 1

Hi,

nach diesem Prinzip (ungetestet):

If Application.CountIf(Columns("S"), Range("S2")) > 1 Then
' hier der Filter-Code für Kriterium aus S2
Else
' hier der Filter-Code für Alle
End If

Bis später,
Karin