Autofilter
09.11.2006 11:35:52
Christian
ich habe einen Autofilter mit 2 Kriterien programmiert(jeweils in unterschiedlichen Spalten) und das Problem ist, dass das zwar das 1te Kriterium zieht, das 2te aber nicht. Anbei der Quellcode, evtl. sieht ja jemand den Fehler:
Private Sub Beratung2_Click()
Dim Blatt As Worksheet
Set Blatt = Sheets("Januar R.S.")
If Blatt.AutoFilterMode = False Then
Blatt.UsedRange.Autofilter
End If
Blatt.Range("1:1").Autofilter _
Field:=2, Criteria1:="Projektarbeit", _
Operator:=xlAnd, _
Field:=11, Criteria1:="Firma xyz"
Worksheets("Januar R.S.").Range("1:1").Autofilter
End Sub
Gruss, christian