title image


Smiley 2 Fragen dazu von DIR - 1 angepasster Code dazu von MIR
Hallo Padre,



zu Frage 1) : Das kann ich nicht nachvollziehen (Excel XP), ich habe Dir jetzt mal eine Alternative zum Anzeigen ALLER Datensätze in den Code eingebaut, was passiert nun ??



Zu Frage 2) : Siehe Anpassung im Code







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

            'Ergänzung für Padre :

            'Alternative zum Anzeigen aller Datensätze :

            'ActiveSheet.ShowAllData

        Else

            'Autofilter nach Wert in A4 filtern : Beginnt mit

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

            'Ergänzung für Padre :

            'Autofilter nach Wert in A4 filtern : Enthält

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

        End If

    End If

End Sub









Um die Anpassungen zu aktivieren, musst Du natürlich die ' Zeichen vor der Zeile entfernen !!

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: