For Each Zelle In Range("D1:D" & Range("D40000"

For Each Zelle In Range("D1:D" & Range("D40000").End(xlUp).Row)
If Zelle.Text  0 Then
cboDatum.AddItem Zelle.Offset(0, 0).Text & "  " & Zelle.Offset(0, 1).Text
End If
Next

..wird eine CB mit den Inhalten der Spalten „D“ und „E“ befüllt, der Nachteil ist jedoch dass sämtliche Datensätze (z.Zt. über 5000) in die CB eingelesen werden.
Diese Datensätze wurden in den letzten 8 Jahren angelegt.
Über CheckBoxen will ich nun einzelne Jahrgänge zum Einlesen in die CB auswählen; der erste Datensatz des jeweiligen Jahrgangs wird über die Variable „BereichAnfang“ und der letzte Datensatz über „BereichEnde“ definiert.
Im Moment stehe ich auf dem Schlauch da es mir gelingt mit der „FOR“- Anweisung den Bereich mittels der beiden Variablen einzugrenzen.
Weiß jemand wie der korrekte Programmcode lauten müsste?
mfg
reiner