ich habe ein kleine Frage an Euch, die Ihr mich sicherlich beantworten könnt:
Ich habe eine Userform mit ca. 20 Buttons mit denen ich verschiedene PDF-Dateien
öffnen will.
Hier eine kurze Form des Codes:
'-------------------------------------------
Public Datei As String
Private Sub bt1_Click()
Datei = "K:\Auswertungen\Umsatz.pdf"
ActiveWorkbook.FollowHyperlink Datei
End Sub
Private Sub bt2_Click()
Datei = "K:\Auswertungen\Absatz.pdf"
ActiveWorkbook.FollowHyperlink Datei
End Sub
'---------------------------------------------Gibt es eigentlich eine Möglichkeit eine Fehlerabfrage einzubauen?
D.h. Wenn die Datei bspweise nicht vorhanden ist, soll einfach
eine Msgbox ausgegeben werden und der Fokus wieder auf die Userform
gesetzt werden.
Vielen Dank für Eure Hilfe!
Gruß Stefan