Hilfe bei Code UDF/ComboBox/ListBox!
Thomas
ich steh mal wieder voll daneben. Ich habe eine UserForm mit einer Combo1 und einer ListBox1.
Die Combo1 zeigt mir Wohnungen an und nun würd ich die ListBox1 mit den jeweiligen Bereichen Füllen.
Anbei mein Codeansatz.
Option Explicit
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Whg1"
.AddItem "Whg2"
.AddItem "Whg3"
With Me.ListBox1
'If ComboBox1 = "Whg1" Then
.ColumnCount = 6
.ColumnHeads = True
.RowSource = "Liste!B4:G54"
'End If
With Me.ListBox1
If ComboBox1 = "Whg2" Then
.ColumnCount = 6
.ColumnHeads = True
.RowSource = "Liste!B55:G100"
End If
With Me.ListBox1
If ComboBox1 = "Whg3" Then
.ColumnCount = 6
.ColumnHeads = True
.RowSource = "Liste!B110:G155"
End If
End With
End With
End With
End With
End Sub
Die Combo wird wie gewünscht gefüllt aber die ListBox wird gar nicht gefüllt, Fehlermeldung kommt auch nicht.Was mach ich falsch? :((
Vielen Dank schon mal.
Gruß Thomas aus Stuttgart