VBA Visio externe Excel Tabelle in Combobox

  • Sonstige

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    VBA Visio externe Excel Tabelle in Combobox

    Hallo,
    Ich bin neu und habe leider in der Suche nichts finden können.
    Ich nutze VBA unter Visio und habe hier auf einem UserForm eine ComboBox.
    Diese soll mit Daten aus einer Excel Tabelle gefüllt werden.
    Ich habe schon mehrere Foren durchforstet und alles funktioniert nicht.

    Folgenden Code hab ich mir bis jetzt zusammengeschustert:

    Visual Basic-Quellcode

    1. Private Sub UserForm_Initialize()
    3. Dim objExcel As New Excel.Application
    4. Dim objSheet As Object
    5. Dim lngLastRow As Long
    6. Dim my_array As Variant
    9. objExcel.Workbooks.Open "BGR.xls"
    10. Set objSheet = objExcel.Sheets(1)
    13. lngLastRow = objSheet.Range("A" & Rows.Count).End(xlUp).Row
    14. my_array = objSheet.Range("A1:A" & lngLastRow)
    16. 'MsgBox (lngLastRow)
    17. 'MsgBox (my_array)
    18. With Me.CB_BGR
    19. .List = my_array
    20. .ListIndex = 0
    21. .SetFocus: .SelStart = 0: .SelLength = Len(.Text)
    22. End With
    25. End Sub



    Mein Fehler liegt höchstwahrscheinlich in dieser Zeile:

    Visual Basic-Quellcode

    1. my_array = objSheet.Range("A1:A" & lngLastRow)




    Ich hoffe mir kann geholfen werden.

    Ich habe grad kein Visio zur Hand. Da "A1:A" ein String ist und lngLastRow ein Long könnte folgendes klappen:

    Visual Basic-Quellcode

    1. my_array = objSheet.Range("A1:A" & trim(cstr(lnglastrow)))


    Wobei wohl auch wichtig ist, dass lnglastrow >0 und <65535 ist.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende