Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Listbox Inhalt nach mehreren Kriterien filtern
12.12.2019 13:00:11
Foradh
Hallo zusammen,
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


		

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox Inhalt nach mehreren Kriterien filtern
12.12.2019 13:10:31
Rudi
Hallo,
teste mal
Private Sub UserForm_activate()
Dim lZeile  As Long
Dim iLiBo   As Integer
With ListBox1
.Clear
.ColumnCount = 6
.ColumnWidths = "4cm;2cm;2cm;2cm;2cm"
End With
With ThisWorkbook.Worksheets("AMFR list") ' den Tabellenblattnamen definieren
For lZeile = 6 To .Cells(.Rows.Count, 5).End(xlUp).Row
If .Cells(lZeile, 10) = "" Then
Select Case Cells(lZeile, 9)
Case 0 To 5
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 Select
End If
Next lZeile
End With
End Sub

Gruß
Rudi
Anzeige
AW: Listbox Inhalt nach mehreren Kriterien filtern
12.12.2019 13:22:27
Foradh
Vielen Dank für die rasante Antwort. Funktioniert perfekt.

329 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige