Dropdownlisten in Excel via Interop mit VB.NET erstellen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Tachoron.

    Dropdownlisten in Excel via Interop mit VB.NET erstellen

    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:

    VB.NET-Quellcode

    1. 'Anwendung starten
    2. coExcelApp = New Excel.Application
    3. 'Neues Dokument einfügen
    4. Dim coWorkBook As Excel.Workbook = coExcelApp.Workbooks.Add()
    5. coWorkBook.Activate()
    7. Dim coSheet As Excel.Worksheet = CType(coWorkBook.Worksheets(1), Excel.Worksheet)
    9. Dim coArray(200, 400) As Integer
    10. Dim coRange As Excel.Range = coSheet.Range("A1", "OJ200")
    12. Dim dropDowns1 As Excel.DropDowns = CType(coSheet.DropDowns, Excel.DropDowns)
    14. Dim myarray() As String = {"Tom", "Fred", "Sam", "Wilma", "Sandy"}
    16. For i = 0 To 4
    17. dropDowns1.AddItem(myarray(i))
    18. Next


    Danke für jede Hilfe!

    Gruß
    Dennis

    So, nach einem ausgiebigem Mittagessen+Spaziergang habe ich es selber gelöst.
    Habe den falschen Ansatz gewählt. Vielmehr geht es via Range.Validation:

    Beispielsweise:

    VB.NET-Quellcode

    1. coSheet.Range("A1").Validation.Add(Excel.XlDVType.xlValidateList, , , "=$D$3:$D$5")

Facebook
Telefonspende