Readdy Write

Excel Code zum Ein und Ausschalten des Filter nach einer Zelle

09.10.2021 (👁6837)


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






0,00 €