Ich schreibe in Word ein Coding, welches auf eine Excel Tabelle zugreifen soll. Es sieht folgendermaßen aus.
Private Sub UserForm_Initialize()
On Error Resume Next
Set xlApp = GetObject("D:\........\....Liste.xls")
Me.Listbox1.Clear
With xlApp
Set bereich = .worksheets(1).[A2].CurrentRegion
For i = 2 To bereich.Rows.Count
Me.Listbox1.AddItem .worksheets(1).Cells(i, 1).Value
Next
Me.Listbox1.Value = Me.Listbox1.List(0)
End With
End Sub
Jetzt möchte ich mir einzelne Zellen in Labelfeldern auf dem Userform in Word anzeigen lassen (z.b Name / Vorname usw....)
Private Sub Listbox1_Change()
i = Listbox1.ListIndex + 2
Beep
Me.Label10.Caption = Me.Listbox1.AddItem(sheets(1).Cells(i, 1).Value)
End Sub
Das klappt aber nicht!! Wo liegt der Fehler???
Danke euch
Werner