Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Array mit mehreren Kriterien beim Autofilter funtioniert nicht

1,284 views
Skip to first unread message

Walter Heying

unread,
Jul 8, 2011, 6:23:58 AM7/8/11
to
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:=46,
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

Claus Busch

unread,
Jul 8, 2011, 6:41:17 AM7/8/11
to
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:=46,
> 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

Walter Heying

unread,
Jul 8, 2011, 6:51:21 AM7/8/11
to

Hallo Claus,

leider wirkt sich der Filter so stark aus, dass keine Zeile mehr
angezeigt wird.
Was muss noch geändert werden, damit das Makro den gewünschten Filter
richtig ausführt?

gruß
walter

Claus Busch

unread,
Jul 8, 2011, 6:55:34 AM7/8/11
to
Hallo Walter,

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

> leider wirkt sich der Filter so stark aus, dass keine Zeile mehr
> angezeigt wird.
> Was muss noch geändert werden, damit das Makro den gewünschten Filter
> richtig ausführt?

bei mir sind alle Zeilen in Spalte C, die A, B oder C enthielten
angezeigt. Alle anderen sind ausgeblendet.
Stimmt vielleicht dieSpalte nicht? Rows("3:3").Autofilter Field:=3
filtert Spalte C.

Walter Heying

unread,
Jul 8, 2011, 7:03:53 AM7/8/11
to
Genau - das war es gewesen Claus - vielen Dank für deine schnelle
Hilfe!!!!!!!!!!!!!!!!!!!
0 new messages