Freelance Project Requests info@CodeDocu.de Software Development in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

 

Small Excel macro, with which you can automatically filter for the active cell via keyboard

 

To do this, simply copy the code into the staff

Step 1: Alt+F11 ->vba Code

Step 2: Left pane Project >VBAProject (PERSONAL. XLSB)

Step 3: Copy the code here and paste it into the /Module/Module1 folder

 

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

 

 

 

Enable keyboard combination Ctrl-F

 

Then, in Excel Menu>Developer Tools >Makros >Macro:FilterSe toSe thiscell->Options->f

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

 

Mobile

.

Contact for Jobs, Project Requests: raimund.popp@microsoft-programmierer.de