[Sven]

Wiollst du das wirklich direkt in der Tabelle machen?
Warum nicht eine UserForm?

So liest du zB in ein DropDown ein, die Liste befindet sich in Blatt 1, Spalte A:

    With Workbooks("Book1.xls") 
    cRowL = .Sheets(1).Cells(Rows.count, 1).End(xlUp).Row
    For cRow = 2 To cRowL
        If Not IsEmpty(.Sheets(1).Cells(cRow, 1)) Then
            DropDown.AddItem .Sheets(1).Cells(cRow, 1).Value
        End If
    Next cRow
    End With