---

Hallo zusammen!

Ich hab jetzt schon ziemlich lange gesucht, bin aber noch nicht auf das gestoßen was ich bräuchte.
Ich würde gerne in einem User Form eine ComboBox erstellen, die ihre Werte aus einer Excel-Tabelle holt.

Hat vielleicht schon jemand mal was ähnliches gemacht?

Danke schon mal im Voraus!

lg Christian

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

---

Hi Christian,

und welcome auf cad.de 

Zu deinem Anliegen:
hier mal ein ungetester Code als Grundgerüst,
der hat aber Nullkommanix mit Inventor zu tun, weil isch 'abe gar kein Inventür;-)

Code:

---

Sub grundgeruest()
  Dim xlApp As Object, xlWB As Object, i&
  On Error Resume Next
  Set xlApp = GetObject(, "Excel.Application")
  If Not xlApp Is Nothing Then
      Set xlWB = GetObject("e:\Mappe1.XLS")
      If xlWB Is Nothing Then
        xlApp.workbooks.Open ("e:\Mappe1.XLS")
      End If
  Else
      Set xlApp = CreateObject("Excel.Application")
      xlApp.workbooks.Open ("e:\Mappe1.XLS")
  End If
  Set xlWB = GetObject("e:\Mappe1.XLS")
  'xlApp.Visible = True: xlApp.Activate
  'Debug.Print xlWB.sheets(1).range("A1").Value
 
  With xlWB.sheets("Tabelle1")
      'liest die Werte aus A1:A3 in die Combo ein
      For i = 1 To 3
        combobox1.additem .cells(i, 1).Value
      Next
  End With
  xlApp.Quit: Set xlApp = Nothing: Set xlWB = Nothing
 
End Sub

---

Wenn du uns mal paar Codezeilen (der von dir angedachten Denkweise) rüberbringst/posten würdest, dann wäre auch der Zuspruch etwas reger, ... denne so weiss kein Schw..., was du bereits an Code hast und wo es harkt.

Insofern, liefer uns eine Vorlage und wir werden versuchen zu helfen - andersrum wirds schwierig;-)

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

---

Danke, der Code funktioniert einwandfrei 

ich hatte es so wie in Excel mit .range und combobox.list probiert, nur hat er mir da immer nur den ersten wert in die combobox gegeben.

Danke nochmal!!!

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