Excel Code zum Ein und Ausschalten des Filter nach einer
Zell
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
