#

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

 

 

Ein Bild, das Text enthält.
Automatisch generierte Beschreibung

 

 

 

Tastatur-Kombination Strg-F aktivieren

 

Dann in Excel-Menü>Entwicklertools->Makros->Makro:FilterNachDieserZelle auswählen->Optionen->f   tippen

Ein Bild, das Tisch enthält.
Automatisch generierte Beschreibung

 

Mobile

.

0123movie.net