title image


Smiley Dachte ich mir es doch.... hier die Code-Korrektur
Hey anko,



das dachte ich mir, denn das war der naheliegendste Fehler.



Um wieder ALLE Einträge anzeigen zu können, erweiterst Du die Gültigkeitsliste in Zelle A4 um den Eintrag "Alle" und kopierst folgendes angepasste Makro in das Modulblatt der Tabelle :







Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$4" Then

        If UCase([A4]) = "ALLE" Then

            'Löschen des Autofilterkiteriums :

           [A7].AutoFilter Field:=1

        Else

            'Autofilter nach Wert in A4 filtern

           [A7].AutoFilter Field:=1, Criteria1:="=" &[A4] & "*", Operator:=xlAnd

        End If

    End If

End Sub










Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: