Filtern nach Text in Zelle
30.12.2015 13:11:14
Günther
ich benötige mal wieder Unterstützung aus diesem tollen Forum.
Wie muss dieser Code abgeändert werden, damit ich nach dem Text in G1 Filtern kann?
Bisher kann ich nur nach Zahlen Filtern.
Sub Filtern_nach_Zahl()
Dim Auswahl As String
Auswahl = CStr(CLng(Range("G1").Value))
ActiveSheet.Range("$a$2:$a$400").AutoFilter Field:=1, Criteria1:= _
"=" & Auswahl, Operator:=xlAnd
End Sub
Vielen Dank für die Hilfe.
Gruß
Günther
Anzeige