Hallo zusammen

Ich will dass Text aus der letzten befüllten Zelle in eine Liste (ComboBox) geschrieben wird. Das funktioniert gut wenn ich die Zelle bestimme, nicht aber wenn ich nach der letzten befüllten Zelle suche.

Diesen Code verwende ich:

Private Sub UserForm_Activate()
FillComboBox ActiveSheet.Cells(1, 1)
End Sub

Sub FillComboBox(sentence As String)
Dim words() As String, i As Long
words = Split(Replace(Replace(sentence, ",", " "), ".", " "), " ")

Me.ComboBox_VerseWords.Clear
For i = LBound(words) To UBound(words)
If words(i) > "" Then
Me.ComboBox_VerseWords.AddItem words(i)
End If
Next
End Sub

Wenn ich so etwas wie:

FillComboBox ActiveSheet.Cells(Rows.Count, 1).End(xlUp)

nehme gibt es nur eine leere Liste wieder.

Kann mir jemand sagen was ich falsch mache?

Danke,
Roger