Autofilter
15.01.2013 20:54:55
Heinz
Im unteren Makro Habe ich einen Autofilter der mir nach den Kriterien in AW1 filtert.
Der Filterbereich ist A4:AQ5000 Die Kriterienspalte ist AQ ist gleich Feld 42
Nur bekomme ich jetzt die Fehlermeldung Nr.1004 "Die Autofiltermethode des Range-Objektes konnte nicht ausgeführt werden"
Wo liegt bitte der Fehler?
Grüsse Heinz
Option Explicit
Sub SetFilter()
Dim sFilter As String
sFilter = InputBox("Filter:", , Range("AW1").Value)
If sFilter = "" Then Exit Sub
Range("A4:AQ5000").CurrentRegion.AutoFilter _
Field:=42, Criteria1:=sFilter, Operator:=xlAnd
End Sub