|
#2
|
||||
|
||||
|
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: Code:
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
__________________
Zitat:
Geändert von Sven (21-02-2005 um 15:09 Uhr). |