Office: Nach Bedingung Autofilter mit 3 Criteria

Thomtek · 8. April 2016

Einen wunderschönen guten Abend liebe VBA-Spezialisten, ich brauche mal wieder eure fachliche Hilfe.

Ich bastel kampfhaft an einen Code für ein Autofilter mit 3 Criteria. Ohne Erfolg!!!

In der Zeile 6 von Spalte A bis Spalte AU sind die Button des Autofilters gesetzt.
Wenn nun aber die Bedingung Tabelle3.Range("BD60").Value = "Mängelliste Hydrantenkontrolle" erfüllt ist, dann soll für die Spalte AL Zeile 7 bis Zeile 552
ein Autofilter mit 3 Criteria ausgeführt werden. Alle Zellen die "nicht kontrolliert", "geringe Mängel" und "nicht funktionstüchtig" enthalten sollen gefiltert werden.
Der folgende Code funktioniert nicht.
Code:

If Tabelle3.Range("BD60").Value = "Mängelliste Hydrantenkontrolle" Then
Selection.AutoFilter _
Field:=38, Criteria1:="nicht kontrolliert", Operator:=xlAnd, _
Criteria2:="geringe Mängel", Operator:=xlAnd, _
Criteria3:="nicht funktionstüchtig"
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dieser Code startet den Debugger. Was ist falsch und wer kann das Problem lösen?

LG Thomtek

:)

Luschi · 10. April 2016

Hallo Thomtek.

der Makrorecorder spuckt sowas aus, wenn man in einer Spalte nach 3 Werten filtern will:
Criteria1:=Array("nicht kontrolliert", "geringe Mängel", "nicht funktionstüchtig"), Operator:=xlFilterValues

Gruß von Luschi
aus klein-Paris

Thomtek · 11. April 2016

Hallo Luschi,

peinlich, peinlich, peinlich. Da hätte ich auch selber drauf kommen können.
Besten Dank für den Tip!!!! Den habe ich befolgt und ausgeführt.
Code:

If Tabelle3.Range("BD60").Value = "Mängelliste Hydrantenkontrolle" Then
ActiveSheet.Range("$A$6:$AM$553").AutoFilter Field:=38, Criteria1:=Array( _
"geringe Mängel", "nicht funktionstüchtig", "nicht kontrolliert"), Operator:= _
xlFilterValues
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist daraus geworden und funktioniert genau so wie es soll.

Nochmals besten Dank!

LG Thomtek

Office: Nach Bedingung Autofilter mit 3 Criteria

Nach Bedingung Autofilter mit 3 Criteria

Nach Bedingung Autofilter mit 3 Criteria

Nach Bedingung Autofilter mit 3 Criteria - Similar Threads - Bedingung Autofilter Criteria

XVERWEIS, SVERWEIS: Nur unter bestimmter Bedingung ausgeben, sonst weitersuchen

Zählenwenn mit Bedingungen

Steigung mit Bedingung

Vorkommen von Kunden in mehreren Tabellen per Abfrage filtern

Dynamische Combobox mit zwei Bedingungen

Mehrere Bedingungen und Addition

Autofilter VBA - Bedingungen