#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). |