Ich habe in einer Tabelle in Spalte 8 ab Zeile 6 viele 100 Werte stehen. Diese Werte sollen in eine ComboBox auf einer UserForm eingelesen werden. Zuerst zähle ich die belegten Zeilen ab Zeile 6, merke mir die Anzahl mit X und möchte die dann ermittelte Zeilenanzahl übertragen - aber irgendwas ist da falsch! Bloß was :-(
Private Sub UserForm_Initialize()
X = 6
Do Until Application.WorksheetFunction.CountBlank(Rows(X)) = 256
X = X + 1
Loop
Set Rng = Worksheets("Tabelle1").Range(X, 8)
For Each C In Rng
ComboBox1.AddItem C
Next C
End Sub