Ja, er schon wieder! In meiner UF habe ich ein ComboBox die von der Tabelle "Eingaben" gefüllt wird. Der Code sieht so aus:
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem Sheets("Eingaben").Range("D1")
.AddItem Sheets("Eingaben").Range("D2")
.AddItem Sheets("Eingaben").Range("D3")
.AddItem Sheets("Eingaben").Range("D4")
.AddItem Sheets("Eingaben").Range("D5")
.AddItem Sheets("Eingaben").Range("D6")
.AddItem Sheets("Eingaben").Range("D7")
.AddItem Sheets("Eingaben").Range("D8")
.AddItem Sheets("Eingaben").Range("D9")
.AddItem Sheets("Eingaben").Range("D10")
.AddItem Sheets("Eingaben").Range("D11")
.AddItem Sheets("Eingaben").Range("D12")
.AddItem Sheets("Eingaben").Range("D13")
.AddItem Sheets("Eingaben").Range("D14")
.AddItem Sheets("Eingaben").Range("D15")
.AddItem Sheets("Eingaben").Range("D16")
.AddItem Sheets("Eingaben").Range("D17")
End With
End Sub
Funktioniert auch so weit OK, nur die leeren Zellen (wo noch kein Eintrag vorhanden ist), werden auch angezeigt. Lässt sich dieses irgendwie unterbinden. Es sollen also nur die Zellen angezeigt werden wo was drin steht. Habe leider auch nichts passendes im Archiv gefunden.
Einen schönen Abend noch und
Grüße aus dem verregneten Knast in Celle!