Filtern Unterfiltern
16.07.2021 22:09:26
Peter
kann mir jemand sagen, wie ich die beiden Textboxen in Abhängigkeit zueinader bekomme. Es sollen quasi bei der Eingabe beide Textboxen berücksichtigt werden, sozusagen ein Filtrat des Filtrats...Habe leider keinen Ansatz dazu..
Option Explicit
Private arrData As Variant
Private Sub CommandButton1_Click()
ListBox1.List = arrData
TextBox1.Text = vbNullString
End Sub
Private Sub TextBox1_Change()
Dim zeile As Long
Me.ListBox1.Clear
Me.ListBox1.List = arrData
For zeile = Me.ListBox1.ListCount - 1 To 0 Step -1
If Not UCase(Me.ListBox1.List(zeile, 3)) Like UCase(Me.TextBox1) & "*" Then
Me.ListBox1.RemoveItem (zeile)
End If
Next
End Sub
Private Sub TextBox2_Change()
Dim zeile As Long
Me.ListBox1.Clear
Me.ListBox1.List = arrData
For zeile = Me.ListBox1.ListCount - 1 To 0 Step -1
If Not UCase(Me.ListBox1.List(zeile, 5)) Like UCase(Me.TextBox2) & "*" Then
Me.ListBox1.RemoveItem (zeile)
End If
Next
End Sub
Private Sub UserForm_Initialize()
Dim lLastRow As Long
With Worksheets("Daten")
lLastRow = .Cells(.Rows.Count, 3).End(xlUp).Row
arrData = .Range(.Cells(5, 1), .Cells(lLastRow, 11)).Value
End With
With ListBox1
.ColumnCount = 10
.ColumnWidths = "10;28;60;101;125;70;70;60;55;100"
.List = arrData
.ListIndex = .ListCount - 1
End With
End Sub