---

Hallo Zusammen

ich versuche eine Listenbox zubefüllen die Daten liegen in Excel vor.

habe es so probiert aber ich kann Excel nicht öffnen und dieDaten einlesen.

Kann mir jemand helfen

code:

Private Sub ComboBox1_Change()
    Dim oxls As Object
        Dim oxlsdoc As Excel.Workbook
        Set oxls = CreateObject("Excel.Application")
        Set oxlsdoc = oxls.Workbooks.Open("C:\Users\Public\Documents\Autodesk\Makros\Namen.xlsx")
        With ListBox1
            .ColumnCount = 1
            .ColumnWidths = "1.4cm"
            .ColumnHeads = False
           
            '.List = oxlsdoc.Sheets("Tabelle1").Range("A1:A6").value
            .RowSource = oxlsdoc.Sheets("Tabelle1").Range("A2:H6")
          MsgBox (i)
        End With
    oxlsdoc.Close
        oxls.Quit
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Volker,

versuche mal

Code:

---

Dim oxls As Excel.Application

---

Den Verweis auf die Microsoft Office Object Library setzen! Dann sollte es eigentlich gehen.

Kommt denn sonst irgendeine Fehlermeldung?

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Chris

Danke für Deine Antwort

Habe den Code geändert die Verweise eingebunden IV neu gestartet aber es werden keine Einträge in der Liste angezeigt.Bin alle Einstellungen der Listbox durchgegangen kein Erfolg.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Chris

hab ich noch vergessen: Es kommt keine Fehlermeldung nichts

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ok, dann fangen wir mal an 
Dein Code sieht aus, als wäre er aus einer Form.
Stimmt das?

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Volker,

Zitat:

---

Habe den Code geändert die Verweise eingebunden IV neu gestartet aber es werden keine Einträge in der Liste angezeigt.Bin alle Einstellungen der Listbox durchgegangen kein Erfolg.

---

das könnte vielleicht an dieser Zeile liegen:

Code:

---

Private Sub ComboBox1_Change()

---

dass heißt, die ListBox1 wird erst dann mit Werten aus Excel befüllt, wenn irgendein Wert der ComboBox1 geändert wird.

wie ist es damit:

Code:

---

Option Explicit

Private Sub UserForm_Initialize()
    Dim oxls As Excel.Application
    Dim oxlsdoc As Excel.Workbook
    Dim xlBereich As Excel.Range
    Dim xlZelle As Excel.Range
    Set oxls = CreateObject("Excel.Application")
    Set oxlsdoc = oxls.Workbooks.Open("C:\Users\Public\Documents\Autodesk\Makros\Namen.xlsx")
    Set xlBereich = oxlsdoc.Sheets("Tabelle1").Range("A1:A6")
    For Each xlZelle In xlBereich
        ListBox1.AddItem (xlZelle.value)
    Next
    oxlsdoc.Close
    oxls.Quit
End Sub

---

------------------
alex

[Diese Nachricht wurde von metalgod am 30. Mai. 2016 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ok, ich war davon ausgegangen, dass die Listbox erst mit Änderung der Combobox befüllt werden soll...

Als Tipp vielleicht: Lege dir ein Label an, dessen Text du beim Laden der Form über deine Excel-Liste befüllst.
Dann kannst du zumindest schonmal schauen, ob dein Weg generell funktioniert und es nur an der ListBox liegt, oder ob irgendein anderer Fehler vorhanden ist.

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bild1.JPG

Hallo Chris

bin erst heute wieder zurück musste zum Kunden

Ich habe es mal auspropbiert mit  einer Listbox und einem Label
bekomme aber diesmal diese Fehlermeldung (User - defined tupe not defined)Excelverweise habe hinzu gefügt

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey Volker,

Kannst du vielleicht mal deinen kompletten Code posten? Weil der Fehler sonst nur schwer zu finden ist.

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP