VBA EXCEL: Range Problem

[fenriz]

Folgendes Problem:

ich versuche einen Bereich in einer Range Variablen abzulegen. Hab alles mögliche versucht und alle möglichen Fehler bekommen. Hoffe mir kann jemand helfen.
Bereich startet bei einer Zelle namens "alias_start", dann suche ich das ende der spalte "alias" mit der find funktion. Der Bereich zwischen "alias_start" und der letzten benutzten Zelle soll dann in eine ComboBox. Funktioniert auch wenn ich den Bereich per Hand eingebe. Ich bekomms nur nicht dynamisch gelöst.

Dim ListItems As Variant, i As Integer
Dim SourceWB As Workbook
Dim SBereich, SBAlias As Range

Set SourceWB = Workbooks(ReportTool)
Set SBereich = SourceWB.Worksheets("files").Range("alias").Find("", LookAt:=xlWhole)

With Me.cbChooseEingabeFile
.Clear
ListItems = SourceWB.Worksheets("files").Range('hier soll die bereichsvariable rein').Value
......


(Vielleicht ist es einfach auch nur zu spät - oder zu früh?)

 

[fenriz]

Habs nach ein paar Stunden Schlaf doch noch selbst hinbekommen.

Beispiel: FillList füllt eine ComboBox mit Werten aus einer benannten Spalte "Listitems", startend bei benannter Zelle "start" bis zum letzten Eintrag in dieser Spalte.

Private Sub FillList()

Dim ListItems As Variant, i As Integer
Dim SBereich As Range

Set SBereich = ActiveSheet.Range("Listitems").Find("", LookAt:=xlWhole)

With Me.cbList
.Clear
ListItems = ActiveSheet.Range(Range("start"), Cells(SBereich.Row - 1, SBereich.Column)).Value
ListItems = Application.WorksheetFunction.Transpose(ListItems)

For i = 1 To UBound(ListItems)
.AddItem ListItems(i)
Next i
.ListIndex = -1
End With
End Sub