letzen Wert in ComboBox übergeben
Frank
Ich habe eine ScrollBar und eine ComboBox. Die ScrollBar hat min=1 und max=10000. In Spalte A wird in Abhängigkeit der Scrollbar die Zahlen mehr oder weniger. Nun möchte ich genau diesen Bereich in die ComboBox schreiben.
Das ist der Code:
Private Sub ScrollBar1_Change()
Dim Letzte_Zeile As Long
Letzte_Zeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
ComboBox1.ListFillRange = "A5:A" & Letzte_Zeile
ComboBox1.ListIndex = Letzte_Zeile
End Sub
Nun wird die ComboBox aber immer mit 10000 belegt, obwohl es wie im Beispielbild nur bis 18 geht. Gibt es einen anderen Befehl als IsEmpty, der quasi die letzte belegte Zelle findet?
https://www.herber.de/bbs/user/74450.jpg
https://www.herber.de/bbs/user/74451.xlsm
Vielen Dank und viele Grüße,
Frank