Pfad von exccel auf Word

Private Sub cmd_Button_5_Click()
Dim indx As Long
With Me.Lst5
indx = getselectedIndx(.Name)
If indx > -1 Then
' On Error Resume Next
If Dir(.List(indx, 1))  "" Then
Workbooks.Open Filename:=.List(indx, 1)
Else
MsgBox "Datei '" & .List(indx, 1) & "' nicht vorhanden"
End If
Else
MsgBox " keine Liste ausgewählt", vbOKOnly, "Fehler"
End If
End With
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim rng As Range, sName As String, i As Long, cnt As Long
i = 1
For cnt = 0 To Me.Controls.Count - 1
If Me.Controls(cnt).Name Like "Lst*" Then
sName = Right(Me.Controls(cnt).Name, Len(Me.Controls(cnt).Name) - 3)
With Me.Controls("Lst" & sName)
.ColumnCount = 2
.ColumnWidths = "150;0"
Set rng = Tabelle2.UsedRange.Cells(1, i) 'Spalte wähle
Debug.Print rng.Address
Set rng = rng.Offset(1).Resize(rng.End(xlDown).Row - 1, 2) 'bereich vergrößern
.List = rng.Value                         'liste zuweisen
Me.Controls("Label_" & sName).Caption = rng.Cells(1, 1).Offset(-1).Value
'Text in Beschriftungsfeld schreiben
i = i + 2
End With
End If
Next
End Sub