ComboBox ListFillRange flexibel zuweisen
01.08.2006 07:40:13
stefanseevetal
Ich habe eine Combobox in meinem Tabellenblatt und möchte, dass bei jedem Anklicken der Box der Eingabebereich geprüft und angepasst wird.
Normalerweise kann ich ja den Eingabebereich mit ListFillRange in den Eigenschaften einstellen, aber wie mache ich es, wenn dieser Bereich in der Größe variiert. Ich möchte nämlich nicht einfach einen Bereich vonn Zelle C4 bis C500 vergeben, sondern den Eingabebereich immer auf die Größe der wirklich gefüllten Zellen begrenzen.
Habe gedacht, es würde so oder ähnlich gehen, aber leider funktioniert es nicht:
Private Sub ComboBox3_Click()
Dim letzteZeile As Integer
letzteZeile = Sheets("Eingabebereiche").Cells(Rows.Count, 3).End(xlUp).Row
Sheets("Eingabebereiche").Select
ListFillRange = Range(Cells(4, 3), Cells(letzteZeile, 3))
End Sub
Vielleicht hat ja jemand ne Idee dazu! Wäre toll!
Danke und Gruß,
Stefanseevetal