ComboBox füllen
17.06.2022 10:38:30
Marius
ich bräuchte mal einen Schupps in die richtige Richtung. Ich habe ein Excel VBA Projekt, in dem ich die ComboBoxen einer UserForm mit Daten aus einem Datenblatt fülle.
Dabei wird die jeweils letzte Zeile der jeweiligen Spalte ermittelt, um so quasi dynamisch auch neue Eintrage im Datenblatt mit zu erfassen. Das funktioniert soweit eigentlich gut, die Ausnahme ist, wenn in einer Spalte nur ein Eintrag ist, dann bekomme ich einen Fehler. Hänge ich die nächste leere Zelle mit an, funktioniert das dann natürlich solange, bis ich die in der ComboBox den leeren Wert auswähle. Wie kann ich das verhindern, also wie fülle ich die ComboBox.List Eigenschaft mit nur einer Zelle?
Hier mein Code wie ich die ComboBoxen fülle:
Public Sub fill_Lines(ByVal term As String)
Dim last_Row, column As Integer
Dim sheet As String
sheet = "Data"
With Worksheets(sheet)
column = Find_Column(sheet, term)
last_Row = Find_LastCell(sheet, column)
Main_Window.cmb_Lines.List = .Range(.Cells(2, column), .Cells(last_Row, column)).Value
End With
End Sub