ListBox nach 2 Kriterien füllen
Michael
in einer Userform werden Projektzeiten aus der Tabelle ZS_Stunden in einer ListBox dargestellt.
Nun sollen aus dieser Tabelle nur die Zeilen ausgelistet werden, die
- in Spalte A mit dem Suchwert in Userform label "txt_ma_auswahl"
UND
- in Spalte G mit dem Suchwert in Userform Kombinationsfeld "cbo_projekt_auswahl"
übereinstimmen.
Für die Eingrenzung auf den Suchwert in Spalte A habe ich mir im Forum zusammengebastelt:
Public Sub ma_listbox_update()
'4 MA-Daten einlesen
'ListBox_Voransicht.RowSource = "ZS_Stunden!A2:H50"
ListBox_Voransicht.ColumnCount = 8
ListBox_Voransicht.ColumnWidths = "70 Pt;50 Pt;35 Pt;35 Pt;28 Pt;35 Pt;225 Pt;222 Pt"
'MA in ListBox filtern
Dim vArr As Variant
Dim i As Integer
Dim strT As String
Dim LetzteZeileStd As Long
With Worksheets("ZS_Stunden")
LetzteZeileStd = .Range("A65536").End(xlUp).Row
strT = txt_ma_auswahl.Caption
vArr = Worksheets("ZS_Stunden").Range("A4:A" & LetzteZeileStd) '
Funktioniert auch problemlos.
Allerdings bekomme ich den 2 Suchwert nicht eingebaut.
Was (und an welcher Stelle) muss ich hinzufügen, damit auch der Wert aus cbo_projekt_auswahl in Spalte G gesucht wird?
LG
MichiM