Horizontal filter
22.10.2019 15:23:12
Matthias
Ich benötige wieder mal eure Hilfe.
Die Überschriften meiner Spalten möchte ich filtern.
Im besten Fall soll der Filter wie der Standard Excel Filter funktionieren nur eben Horizontal... Überschriften auswählen die restlichen Spalten werden ausgebländet.
Ich habe versucht mir was aus dem netz zu basteln.
Mit meinem Code kann ich aber nur auf eine Spalte filtern.
Ich habe mir gedacht das ich anstelle der Dropdownliste eine Userform einbaue in der ich die jeweiligen Überschriften auswähle.
Ich hab keine Idee für den Code.
Vielen Dank im Voraus
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim MaNameKurz As String
Dim Spalten As Range
Dim Zelle As Range
Application.ScreenUpdating = False
Set Spalten = Worksheets("T")(Cells(1,3), Cells(1, 33))
Spalten.EntireColumn.Hidden = True
For Each Zelle In Spalten
If InStr(1, Zelle.Text, MaNameKurz, vbTextCompare) > 0 Then
Zelle.EntireColumn.Hidden = False
End If
Next
Application.ScreenUpdating = True
End Sub