08.11.2019, 14:05
Hallo zusammen,
ich habe einen Autofilter:
Nun würde ich gern meine Listbox mit den jeweils gefilterten Werten anzeigen lassen.
So zeigt er mir aber natürlich ständig die komplette Liste an ...
Mag jemand helfen?
Grüße
ich habe einen Autofilter:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 8 And Target.Row = 1 Then
If Target.Value <> "" Then
Worksheets("RegionFilter").Range("A1").AutoFilter , FIELD:=1, Criteria1:=Range("H1")
Else
FilterAufheben
End If
End If
End Sub
Nun würde ich gern meine Listbox mit den jeweils gefilterten Werten anzeigen lassen.
Code:
Private Sub TextBox1_Change()
Dim i As Long
Dim j As Long
Dim a As Long
a = Len(TextBox1)
ListBox1.Clear
With Worksheets("RegionFilter")
For i = 2 To .UsedRange.Rows.Count
For j = 1 To Len(.Cells(i, 2)) - a + 1
If UCase(Mid(.Cells(i, 2), j, a)) = UCase(TextBox1) Then
ListBox1.AddItem (.Cells(i, 2))
Exit For
End If
Next j
Next i
End With
End Sub
Private Sub UserForm_Initialize()
Start.Range("Hotelauswahl").Value = ""
Dim i As Long
With Worksheets("RegionFilter")
For i = 1 To .UsedRange.Rows.Count
ListBox1.AddItem (.Cells(i, 2))
Next
TextBox1 = " "
TextBox1 = ""
End With
End Sub
Mag jemand helfen?
Grüße