ListBox in VISIO mit Datein aus EXCEL-Tabellenblatt füllen

  Private Sub UserForm_Initialize()  'Userform unter VISIO

  Dim xlApp As Excel.Application

  Dim xlArbeitsmappe As Excel.Workbook

  Dim xlBlatt As Excel.Worksheet

  Dim xlBereich As Range

  

  Set xlApp = GetObject(, "Excel.Application")

  Set xlArbeitsmappe = xlApp.Workbooks("Mappe1.xlsm")

  Set xlBlatt = xlArbeitsmappe.Sheets("Tabelle1")

  xlApp.Visible = True

  

  Dim Auslesewert As String

  

  

  Auslesewert = xlBlatt.Cells(1, 1).Value

  txtAuslesewert.Text = Auslesewert  'Schreibt zur Gegenkontrolle den Wert aus Zelle A1 in ein Textfeld im userform hier unter VISIO

                                     '(funktioniert bereits Anwendungsübergreifend)

  

  'ListBox1.RowSource = xlBlatt.Name & "!A1:G10"     '==> ebenfalls Fehlermeldung 380

  

  

  'ListBox1.RowSource = "[Mappe1.xlsm]Tabelle1!A1:G10"  'Liefert Laufzeitfehler 380 (Nur in Visio!, innerhalb Excel

                                                       'funktioniert es)

    

  

  'Eintrag in Eigenschaftenfenster unter RowSource der Listbox unter Excel:

  '[Mappe1.xlsm]Tabelle1!A1:G10   funktioniert ebenfalls, nicht aber hier unter VISIO

  

End Sub