Excel-Daten in Word-Textbox anzeigen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox
Bild

Betrifft: Excel-Daten in Word-Textbox anzeigen
von: spinifex
Geschrieben am: 02.09.2015 11:57:10

Hallo Forum,
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

Bild

Betrifft: AW: Excel-Daten in Word-Textbox anzeigen
von: Case
Geschrieben am: 02.09.2015 13:13:26
Hallo, :-)
hier mal ein Beispiel für eine UserForm:
Word - UserForm - ComboBox - TextBoxen - Daten aus Excel ziehen...
Wenn Du mit dem Beispiel nicht klar kommst, könntest Du die Worddatei mal hochladen, damit man am lebenden Objekt probieren kann. :-)
Servus
Case


Bild

Betrifft: AW: Excel-Daten in Word-Textbox anzeigen
von: spinifex
Geschrieben am: 02.09.2015 15:20:15
Hallo Case,
wenn der Code hält was die einleitende Beschreibung Deines Links verspricht, ist das genau meine Lösung!
Herzlichen Dank -freu und hüpf ;-)
Spinifex

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Excel-Daten in Word-Textbox anzeigen"