Der Werner hat mir schon prima geholfen.
Jedoch möchte ich zur Bedienerfreundlichkeit etwas ändern.
Vorher habe ich die Datei per Button geladen, nun soll sie schon beim Userfrom Initialize geladen werden.
Ist die Datei nicht vorhanden soll eine Massage Box kommen, mit klick auf OK jedoch die Userform geladen werden.
Hier der Code:
Private Sub UserForm_Initialize()
Dim strFile As String
strFile = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 4) & "pdf"
If Not strFile = vbNullString Then
WebBrowser1.Navigate strFile
Else
MsgBox "Keine PDF Datei mit gleichem Namen vorhanden."
End If
....
Leider bekomme ich nur diese Meldung und weiß nicht, wie den Code abändern muß.
https://www.herber.de/bbs/user/119402.jpg
Danke für Eure Hilfe.