Array mit mehreren Kriterien beim Autofilter funtioniert nicht

08/07/2011 - 12:23 von Walter Heying | Report spam
Hallo,

ich versuche vergeblich mit einem Makro in einer Tabelle verschiedene
Kriterien für eine Spalte zu setzen. Das Makro sieht vereinfacht
folgenmaßen aus:
*******************************************************************************************************
Sub Makro1()
Dim zàhler, spaltenNr, Kriterium, zàhlerende, Filter
Filter = """"A", "B", "C""""
Rows("3:3").AutoFilter Field:=3, Criteria1:=Array(Filter),
Operator:=xlAnd
' Inaktive Zeilen (Filter mittels Makroaufzeichnung erstellt)
' ActiveSheet.Range("$A$3:$BD$200000").AutoFilter Field:F,
Criteria1:=Array("A", "B", "C"), _
' Operator:=xlFilterValues
End Sub
********************************************************************************************************
Wie kann ich nun den Array-Filter richtig benennen?

gruß
walter

PS Excel bringt für die Zeile "Filter = ." eine Filtermeldung
 

Lesen sie die antworten

#1 Claus Busch
08/07/2011 - 12:41 | Warnen spam
Hallo Walter,

Am Fri, 8 Jul 2011 03:23:58 -0700 (PDT) schrieb Walter Heying:

Sub Makro1()
Dim zàhler, spaltenNr, Kriterium, zàhlerende, Filter
Filter = """"A", "B", "C""""
Rows("3:3").AutoFilter Field:=3, Criteria1:=Array(Filter),
Operator:=xlAnd
' Inaktive Zeilen (Filter mittels Makroaufzeichnung erstellt)
' ActiveSheet.Range("$A$3:$BD$200000").AutoFilter Field:F,
Criteria1:=Array("A", "B", "C"), _
' Operator:=xlFilterValues
End Sub



probiers mal so:
Dim Filter() As Variant
Filter = Array("A", "B", "C")
ActiveSheet.Rows("3:3").AutoFilter Field:=3, Criteria1:=Filter, _
Operator:=xlFilterValues


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen