AW: Userform, combobox füllen in abhängigkeit von
12.01.2018 17:30:10
fcs
Hallo Jörg,
hier ein Beispiel für das Füllen einer Combobox/Listbox mit Kriterien
'Beispiel Combobox oder Listbox füllen, wenn Kriterium erfüllt
Private Sub UserForm_Initialize()
Dim wks As Worksheet
Dim Zeile As Long, Zeile_L As Long
Dim varB, varZellAdr
Set wks = ActiveSheet 'ggf. anpassen
With wks
'letzte Zeile in Spalte B mit Inhalt
Zeile_L = .Cells(.Rows.Count, 2).End(xlUp).Row
Me.ComboBox1.Clear
For Zeile = 2 To Zeile_L
If .Cells(Zeile, 10) = "" Then
varB = .Cells(Zeile, 2).Value
varZellAdr = .Cells(Zeile, 10).Address(False, False, xlA1)
With Me.ComboBox1
.AddItem varZellAdr
.List(.ListCount - 1, 1) = varB
End With
End If
Next
End With
End Sub
In deinem Fall ist es wahrscheinlich zweckmäßiger eine 2-Spaltige Listbox statt einer Combobox für die Anzeige/Auswahl zu verwenden.
Gruß
Franz