es will mir nicht gelingen, auf Grundlage von folgendem Code in Word VBA eine (vermutlich niedrige) Klippe zu nehmen:
Private Sub Document_Open()
Dim xlApp As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim zeile As Long
Set xlApp = New Excel.Application
Set wb = xlApp.Workbooks.Open(FileName:="C:\Excel\Datei.xlsx")
Set ws = wb.Worksheets(1)
Me.ComboBox1.Clear
For zeile = 1 To 12
Me.ComboBox1.AddItem ws.Cells(zeile, 1)
'Hier hätte ich gerne ws.Cells(zeile, 2) aber in einer Textbox
Next zeile
Me.ComboBox1.ListIndex = 0
wb.Close
xlApp.Quit
Set xlApp = Nothing
End Sub
'In Word VBA ist unter Extras / Verweise Microsoft Excel 14.0 Object Library aktiviert
Die Übergabe in die Combobox (auch mehrere) funktioniert. Die in eine Textbox leider nicht. Me.Textbox1.AddItem gibt es nicht und meine Versuche die Daten stattdessen mit .Copy und .Paste zu übertragen, sind leider erfolglos.Sinn des Ganzen: Ähnlich wie mit EXL - Verweis sollen durch Auswahl des Wertes in der ComboBox die Werte für fünf weitere Textboxen übergeben werden.
Vielleicht hat jemand eine Idee - dafür schon jetzt vielen Dank!
Spinifex