Excel VBA Ändern Combobox Liste von statischen Bereich zu dynamischen

Question

Dies sollte ziemlich einfach sein, aber ich habe Probleme. Gerade jetzt, dieser Code funktioniert:

cboCategoryEdit1.List = Sheets(2).Range("A2:A40").Value 

Ich versuche, „aufzuräumen“ mein Projekt, indem, wie die Combobox bevölkert ist. Ich möchte, dass es eine Combobox mit einem Bereich ist, der nur bevölkerte Zellen benötigt. Bedeutung Ich muss die letzte Zeilenfunktion verwenden. Ich änderte den Code zu diesem und ich erhalte nur einen Fehler von "Methode oder Daten Mitglied nicht gefunden". Hier ist mein Problem Code:

Dim i As Range 
With Sheets("xRef-Categories") 
    Set i = .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row) 
End With 
Me.cboCategoryEdit1.ListFillRange = i.Address 

Danke für jede Hilfe zu diesem.

btw: Sheet2 ist "xref-Kategorien"

Answer 1

Sie einfach diese brauchen ...

With Sheets("xRef-Categories") 
    Me.cboCategoryEdit1.List = .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value 
End With 

Answer 2

Sie können es wie folgt vereinfachen:

With Sheets("xRef-Categories") 
    Me.cboCategoryEdit1.List = .Range("A2" , .Range("A" & .Rows.Count).End(xlUp)).Value 
End With