Guten Abend,

langsam aber sicher bin ich am verzweifeln... Ich komme einfach nicht weiter und finde den Fehler nicht... Vielleicht helfen ja ein paar Augen mehr.. ;-)

Folgendes Szenario:

Excel Datei mit 3 Tabellenblättern

1. Blatt eine Filterliste mit dynamischen Zellbereich. Jede Spalte wurde dynamisch im Namensmanager vergeben. 

2. Blatt eine Datenliste. Dort kommen alle eingegeben Daten hinein. - funktioniert

3. Blatt eine Filterliste. In der oberen Zeile können verschiedene Werte gefiltert werden, die dann darunter aufgelistet werden. - und hier liegt in einem Feld das Problem...

Es sind mehrere Dropdownfelder in der Filterliste, die sich auf den jeweiligen Bereit im 3.Blatt beziehen. Werte werden auch alle wie vorgegeben angezeigt. In dem Dropdownfeld "Art" kann zwischen zwei Wörtern gefiltert werden. Davon wird jedoch nur eins gefiltert. Beim anderen erhalte ich meine eigene Errormeldung, es seien keine Daten vorhanden. Es sich aber garantiert Werte mit dem Filterkriterium vorhanden.

Hier mal der Code, der den Filter aktiviert - ich vermute da ist irgendwo der Wurm drin...

Sub FilterUntersuchungen()
    Dim Untersuchung As String
    Dim Intervention As String
    Dim Aufnahme As String
    Dim Art As String
    Dim rng As Range
    
    On Error GoTo errHandler:
  
    Untersuchung = Tabelle1.Range("d9").Value
    Intervention = Tabelle1.Range("e9").Value
    Aufnahme = Tabelle1.Range("g9").Value
    Art = Tabelle1.Range("h9").Value
    
    Set rng = Tabelle2.Range("b8:l8")
    
    If Untersuchung = "" Then Untersuchung = "*"
    If Intervention = "" Then Intervention = "*"
    If Aufnahme = "" Then Aufnahme = "*"
    If Art = "" Then Art = "*"
    
    rng.AutoFilter Field:=8, Criteria1:=Untersuchung 
    rng.AutoFilter Field:=9, Criteria1:=Intervention
    rng.AutoFilter Field:=5, Criteria1:=Aufnahme 
    rng.AutoFilter Field:=6, Criteria1:=Art

    CopyFilter
    
    Showall
    Tabelle1.Select
    
    On Error GoTo 0
    Exit Sub
    
errHandler:
    MsgBox "nichts"
    Showall
    Tabelle1.Select
End Sub