Skip to content

Instantly share code, notes, and snippets.

Sub FilterNo1()
'
' FilterNo1 Makro
'
' Tastenkombination: Strg+i
'
Selection.AutoFilter
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 1
Range("F2").Select