habe aus der Recherche einen Code entdeckt, den ich auch schon in meine Anwendung eingebaut habe.
Ich möchte die RowSource einer ComboBox dynamisch mit auf Tabellenblättern hinterlegten Werten füllen. Funktioniert auch einwandfrei, lediglich im Fall, dass es nur einen Wert gibt es neben diesem ersten Wert auch viele leere Auswahlmöglichkeiten in meiner Combobox.
Weiß jemand Abhilfe?
Private Sub CommandButton3_Click()
ComboBox2.Visible = True
Label3.Visible = True
mysheet = ComboBox1.Value
With Worksheets(mysheet)
.Select
ComboBox2.RowSource = Range(.Range("A1"), .Range("A1").End(xlDown)).Address
End With
End Sub
vielen Dank im Voraus,
viele Grüße,
Bulli