Listbox mit ComboBox Filtern
26.10.2020 13:54:26
michi
Hoffe Ihr könnt mir weiter Helfen, habe eine Userform und dort holt die Listbox entsprechende Daten.
Nun möchte ich, innerhalb der Listbox Ansicht Filtern über eine ComboBox nach Aktiv oder Inaktiv.
Bei meinem Code Filtert es aber sehr ungenau und mischt immer Aktiv und Inaktiv zusammen.
Ich hoffe Ihr könnt mir weiter helfen. Danke viel mal.
Hier anbei mein Code:
Sub Filter()
Dim rngcellName As Range
Dim Name As String
Dim Suchwort As String
With Worksheets("Mitglieder").Range("AN5:AN" & Rows.Count)
UserForm2.ListBox6.Clear
Set rngcellName = Worksheets("Mitglieder").Range("AN5:AN" & Rows.Count).Find(What: _
=UserForm2.ComboBox8, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=True)
Suchwort = UserForm2.ComboBox8
If Not rngcellName Is Nothing Then
Name = rngcellName.Address
Do
With UserForm2.ListBox6
.ColumnCount = 7
.AddItem
.List(.ListCount - 1, 0) = rngcellName.Offset(-1, -39).Value 'ID
.List(.ListCount - 1, 1) = rngcellName.Offset(-1, -38).Value 'Anrede
.List(.ListCount - 1, 2) = rngcellName.Offset(-1, -37).Value 'Betreuer
.List(.ListCount - 1, 3) = rngcellName.Offset(-1, -36).Value 'Anwesend
.List(.ListCount - 1, 4) = rngcellName.Offset(-1, -35).Value 'Entschuldigt
.List(.ListCount - 1, 5) = rngcellName.Offset(-1, -34).Value ' _
Unentschuldigt
.List(.ListCount - 1, 6) = rngcellName.Offset(-1, 0).Value 'Status
End With
Set rngcellName = .FindNext(rngcellName)
Loop While Not rngcellName Is Nothing And rngcellName.Address Name
End If
End With
End Sub
Lg Michi
Anzeige