Ich habe im Arbeitsblatt "Word" in Spalte A Namen einer Datei und in Spalte B den dazugehörigen Pfad stehen.
Wenn ich den CommandButton23 drücke so werden die Werte der Spalte A in die ListBox3 eingelesen.
Private Sub CommandButton23_Click()
Workbooks("SVAHBHM.xla").Activate
Sheets("Word").Select
ListBox2.Visible = False
ListBox3.Visible = True
ListBox4.Visible = False
'Listbox beim Laden mit Einträgen aus Spalte A befüllen
ListBox3.Clear
For z = 1 To Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
ListBox3.AddItem Sheets(2).Cells(z, 1)
Next
End Sub
Wenn die Werte in der ListBox3 vorhanden sind und ich bei einem der Namen in der ListBox3 doppelklicke, so soll der dazugehörende Pfad aus der Spalte B im Arbeitsblatt "Word" in die TextBox15 eingetragen werden.
Private Sub ListBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox15.Text = ListBox3
Call WordStarten
End Sub
Mit dem Makro WordStarten soll dann die Datei welche mit dem Pfad min der TextBox15 eingetragen ist, gestartet werden.
Sub WordStarten()
On Error Resume Next
Dim strDat As String
Dim Pfad
Pfad = UserForm1.TextBox15.Text
Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Add(Pfad)
'wdApp.Run "Oeffnen"
wdApp.Visible = True
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub
Leider erhalte ich immer wieder ein leeres Word Dokument, da ich keinen Eintrag in der TextBox15 habe.
Was mache ich hier bitte wo falsch bzw. wo fehlt hier noch etwas?
Danke