title image


Smiley Autofilter nach Wert in C1 per VBA
Hey anko,



kopiere folgendes Makro in das Modulblatt des Tabellenblattes :







Private Sub Worksheet_Change(ByVal Target As Range)

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

        'Autofilter nach Wert in A4 filtern

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

        'Löschen des Autofilterkiteriums :

        '[A7].AutoFilter Field:=1

    End If

End Sub











Es wird davon ausgegangen, dass der zu filternde Wert in A4 ausgewählt wird und die Liste (Überschriften) in Zeile 7 beginnt. Falls das in deiner Tabelle anders aufgebaut ist, kannst du es im Makro anpassen (also z.B. [B8] anstatt [A7]).

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: