Filterkriterium auslesen
12.10.2004 15:13:34
Franz
ich setze per VBA einen einfachen Autofilter wie folgt:
Sub FilterFirmen()
Worksheets("Daten").Unprotect
With Range("BezugKD")
.AutoFilter Field:=1, Criteria1:="Firmen"
End With
End Sub
Nun möchte ich gerne das Filterkriterium - hier "Firmen" - in eine Variable einlesen:
Sub FilterFirmen()
Dim Kriterium
Worksheets("Daten").Unprotect
With Range("BezugKD")
.AutoFilter Field:=1, Criteria1:="Firmen"
End With
Kriterium = ..........?
MsgBox Kriterium
End Sub
Das kriege ich nicht hin, hab's u.a. so versucht:
Kriterium = Range("BezugKD").AutoFilter(Criteria1)
... klappt aber leider nicht! Darum bitte ich euch um eure Hilfe
Vielen Dank im Voraus und Grüße
Franz