Daten einer Excel Tabelle filtern
✓ 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
✓ 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
