Daten Filtern

Inhalt

✓ Erweiterter Filter
✓ Makro aufzeichnen mit dem Makro-Rekorder
✓ Makro ein Tastaturkürzel (Shortcut) zuweisen
✓ Worksheet-Events (Tabellenblatt-Ereignisse): Change und SelectionChange
✓ If-Anweisung
✓ Not-Operator
✓ Intersect-Methode
✓ Prozeduren verknüpfen mit “Call” aufrufen
✓ Haltepunkt
✓ Code Schritt-für-Schritt mit F8 durchgehen
✓ Direktfenster
✓ Cursor nach Eingabe in Zelle bleiben: Strg+Enter

 

Code (im Modul)

Sub Erweiterter_Filter() 
 
' Tastenkombination: Strg+Umschalt+J 
 
Range("A4:E704").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("G1:K2"), Unique:=False 

'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub

 

 

Code (im Worksheet)

Private Sub Worksheet_Change(ByVal Target As Range) 
 
If Not Application.Intersect(Target, Tabelle1.Range("g2:k2")) Is Nothing Then 
    Call Erweiterter_Filter 
End If 
 
'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub

 

Teile diesen Beitrag

Ähnliche Themen

VBATrainer Excel VBA Coaching - Lagerverwaltung

Sichere dir jetzt meine kostenlose Lagerverwaltungs-Anwendung