Thema Datum  Von Nutzer Rating
Antwort
Rot autofilter findet value nicht
11.08.2016 21:04:16 susan
NotSolved

Ansicht des Beitrags:
Von:
susan
Datum:
11.08.2016 21:04:16
Views:
1050
Rating: Antwort:
  Ja
Thema:
autofilter findet value nicht

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot autofilter findet value nicht
11.08.2016 21:04:16 susan
NotSolved