Hallo,
ich habe mit VBA einen code programmiert, welcher über die eingabe einer Teilenummer die dazugehörige pdf öffnet.
Ich möchte nun eine Massagebox oder ähnliches einbauen die erscheint falls shell execute keine PDF zur dazugehörigen Teilenummer findet.
könnt ihr mir da weiterhelfen ?
hier mein quellcode:
Public Sub Einscannen()
Dim Datei As String
Dim Var As String
Dim Wahr As String
Dim Teileanzahl As String
Dim Nummer As String
Dim Endung As String
Worksheets("Scanner").Activate
Nummer = Worksheets("Scanner").Cells(1, 1)
Endung = ".pdf"
Datei = "C:/Explosionszeichnungen/" + Nummer + Endung
ShellExecute 0, _
"Open", _
Datei, _
vbNullString, _
vbNullString, _
vbNormalFocus
MsgBox ("Hallo")
Sheets("Scanner").Select
Worksheets("Scanner").Cells(1, 1).Select
End Sub
vielen dank !
|