Listbox Inhalt nach mehreren Kriterien filtern
12.12.2019 13:00:11
Foradh
ich würde gerne in einer Listbox bestimmte Einträge von einem Tabellenblatt angezeigt bekommen.
Die Auswahlkriterien hierfür sollen folgendermaßen aussehen:
In Spalte I Werte von 0 - 5
In Spalte J Werte mit ""
Leider scheitere bei dem ersten Kriterum einen "Range" von 0 - 5 zu definieren. Eine Verknüpfung mit Or oder Trennung durch Kommas funktiniert nicht.
Vielen Dank im Voraus.
Code:
Private Sub UserForm_activate()
Dim lZeile As Long
Dim iLiBo As Integer
With ListBox1
.Clear
.ColumnCount = 6
.ColumnWidths = "4cm;2cm;2cm;2cm;2cm"
With ThisWorkbook.Worksheets("AMFR list") ' den Tabellenblattnamen definieren
For lZeile = 6 To .Cells(.Rows.Count, 5).End(xlUp).Row
If (LCase(.Range("I" & lZeile).Value) = 4) And (LCase(.Range("J" & lZeile).Value) = _
"") Then
ListBox1.AddItem " "
ListBox1.List(iLiBo, 0) = .Range("A" & lZeile).Value
ListBox1.List(iLiBo, 1) = .Range("D" & lZeile).Value
ListBox1.List(iLiBo, 2) = .Range("E" & lZeile).Value
ListBox1.List(iLiBo, 3) = .Range("F" & lZeile).Value
ListBox1.List(iLiBo, 4) = .Range("H" & lZeile).Value
ListBox1.List(iLiBo, 5) = .Range("I" & lZeile).Value
iLiBo = iLiBo + 1
End If
Next lZeile
End With
End With
End Sub