Kleines Excel Makro, mit welchem man per Tastatur automatisch nach der aktiven Zelle filtern kann
Hierzu einfach den Code in den Personal kopieren
Schritt 1: Alt+F11 ->vba Code anzeigen
Schritt 2: linker Bereich Projekt->VBAProjekt (PERSONAL.XLSB) öffnen
Schritt 3: den Code hier kopieren und in den Ordner /Module/Modul1 einfügen
Sub FilterNachDieserZelle() ' Tastenkombination: Strg+f Dim ws As Worksheet Set ws = ActiveSheet If ws.FilterMode = False Then
Dim nCol As Integer Dim sFilter As String Dim cell As Range
Set cell = ActiveCell nCol = cell.Column sFilter = cell.Value
'set Filter cell.AutoFilter Field:=nCol, Criteria1:=sFilter Else Selection.AutoFilter End If
End Sub |
Tastatur-Kombination Strg-F aktivieren
Dann in Excel-Menü>Entwicklertools->Makros->Makro:FilterNachDieserZelle auswählen->Optionen->f tippen