AW: Filter in einer UserForm Einbetten
16.10.2023 21:46:20
Alwin Weisangler
Hallo Thomas,
schau dir mal diese Lösung an.
https://www.herber.de/bbs/user/163492.xlsm
Das hatte ich mal vor einiger Zeit im anderen Forum hochgeladen. Das in ein Userform oder ins Ribbon-Band einzubauen ist eigentlich keine große Sache.
Das bisschen Code basiert auf einer Strg./T Tabelle.
Für die Userform wäre es dann so:
Option Explicit
Private Sub TextBox1_Change()
Dim i&, arrWerte(), arr As Variant
If ComboBox1.ListIndex > -1 Then
arr = Split(TextBox1, ",")
With Tabelle1
.ListObjects("Tbl_Liste").ShowAutoFilterDropDown = True
.ListObjects("Tbl_Liste").Range.AutoFilter Field:=ComboBox1.ListIndex + 1
If TextBox1 > "" Then
.ListObjects("Tbl_Liste").Range.AutoFilter Field:=ComboBox1.ListIndex + 1, Criteria1:=arr, Operator:= _
xlFilterValues
Else
.ListObjects("Tbl_Liste").Range.AutoFilter Field:=ComboBox1.ListIndex + 1
End If
.ListObjects("Tbl_Liste").ShowAutoFilterDropDown = False
End With
End If
End Sub
Private Sub UserForm_Initialize()
Dim i&
With Tabelle1.ListObjects(1).HeaderRowRange
ComboBox1.List = WorksheetFunction.Transpose(.Rows(1).Value)
End With
End Sub
Gruß Uwe