|
Hallo Zusammen,
Ich habe eine mehrspaltige Combobox erstellt mit 3 Spalten. Soweit so gut. Hier der Code:
lz1 = Worksheets("Dropdown").Cells(Rows.Count, 1).End(xlUp).Row
Me.ComboBoxAvk1.List = Worksheets("Dropdown").Range("A2:C" & lz1).Value
Me.ComboBoxAvk1.ColumnWidths = ("20;120;40")
Me.ComboBoxAvk1.ColumnCount = "3"
Me.ComboBoxAvk1.ListRows = "9"
Me.ComboBoxAvk1.ListWidth = "180"
In der ComboBox selbst wird nach Auswahl einer "Dropdown-Zeile" nur der Wert der 1. Spalte, also z.B. A2 angezeigt, was ich auch so möchte.
Jetzt möchte ich aber zusätzlich, dass ein Label den Wert der 3. Spalte anzeigt, in dem Fall C2. Dazu habe ich den folgenden Code erstellt:
Private Sub ComboBoxAvk1_Change()
Dim i As Integer
For i = 2 To 10
If Worksheets("Dropdown").Cells(i, 1).Value = ComboBoxAvk1.Value Then
avk1 = Worksheets("Dropdown").Cells(i, 3).Value
End If
Next i
LabelSparte2.Caption = avk1
Das Problem ist nun, ich bekomme keine Fehlermeldung, alles läuft wie Butter, aber das Label zeigt keinen Wert an oder besser gesagt gibt den Wert "Leer" zurück. Wieso?!
|