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

 

Share on linkedin
Share on xing
Share on email
Share on whatsapp
Share on facebook

Ähnliche themen

VBATrainer Excel VBA Coaching - Dozent Kai Weissmann

Kai Weissmann

VBA Entwickler

Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar.

Kai Weissmann

Persönliche Empfehlungen
Mein Kurs

Jetzt registrieren

Close Bitnami banner
Bitnami