Hi,
Ich habe ein Problem mit DropDownlisten in Excel für das ich nun trotz 3 Stunden ausgiebigem suchen via Google keine hinreichende Lösung gefunden habe.
Das Ziel ist ganz einfach: In Excel eine Dropdownliste (Combobox) erstellen.
Ich verwende VB2008 mit der Interop.Excel Schnitstelle 12.0 und Word 2007.
Als Ansatz einer meiner zahllosen vergeblichen Testversuche:
Danke für jede Hilfe!
Gruß
Dennis
Ich habe ein Problem mit DropDownlisten in Excel für das ich nun trotz 3 Stunden ausgiebigem suchen via Google keine hinreichende Lösung gefunden habe.
Das Ziel ist ganz einfach: In Excel eine Dropdownliste (Combobox) erstellen.
Ich verwende VB2008 mit der Interop.Excel Schnitstelle 12.0 und Word 2007.
Als Ansatz einer meiner zahllosen vergeblichen Testversuche:
VB.NET-Quellcode
- 'Anwendung starten
- coExcelApp = New Excel.Application
- 'Neues Dokument einfügen
- Dim coWorkBook As Excel.Workbook = coExcelApp.Workbooks.Add()
- coWorkBook.Activate()
- Dim coSheet As Excel.Worksheet = CType(coWorkBook.Worksheets(1), Excel.Worksheet)
- Dim coArray(200, 400) As Integer
- Dim coRange As Excel.Range = coSheet.Range("A1", "OJ200")
- Dim dropDowns1 As Excel.DropDowns = CType(coSheet.DropDowns, Excel.DropDowns)
- Dim myarray() As String = {"Tom", "Fred", "Sam", "Wilma", "Sandy"}
- For i = 0 To 4
- dropDowns1.AddItem(myarray(i))
- Next
Danke für jede Hilfe!
Gruß
Dennis