Code Optimierung - Mein Projekt

[sandormiles]

Hallo André,

danke für den Hinweis. Irgendwie wird das vollständig ignoriert. Dunkel erinnere ich mich, dass ich das Problem schon einmal hatte. Hab mir jetzt so beholfen...

Code:

Sub OeffnePDF()
Dim datei As String
On Error GoTo Fehler

datei = "\HiDrive\Dokumente\VBARecht\Handbuch_VBA_WohnRecht.pdf"
ActiveWorkbook.FollowHyperlink datei

Fehler:
MsgBox "Das Handbuch wird nur angezeigt, wenn die Sicherheitsabfrage mit 'Ja' beantwortet wird!"
End Sub

und das klappt. Ich habe ja gelesen, dass man das mit "On Error GoTo..." vermeiden soll, aber in dem Fall spricht wohl mal nichts dagegen!?

Grüße und guten Start ins Wochenende

[schauan]

Hallo Sandor,
On Error zu verwenden ist ja nicht verboten
Man sollte es nur sehr gezielt einsetzen und wenn es nicht mehr nötig ist auch mit On Error Goto 0 zurücksetzen.
Korrekterweise solltest Du auch entweder über Fehler: noch Exit Sub schreiben oder die Meldung nur bedingt ausgeben, z.B. mit If err.number <> 0 then ...

[sandormiles]

Auch für den Hinweis danke. Passe das nochmal an. Soweit ich das sehe, ist es das einzige mal, dass ich in dem Projekt "On Error" nutze. Hoffe es kann dabei bleiben

So, nun werde ich das ganze mal intensiv testen und es findet sich hoffentlich kein Fehler mehr. Irgendwann muss ja mal gut sein :19:

Grüße und schönen Sonntag bzw. guten Start dann morgen in die neue Woche
Sandor

[snb]

oder

Code:

Sub OeffnePDF()
  On Error resume next

  ActiveWorkbook.FollowHyperlink "\HiDrive\Dokumente\VBARecht\Handbuch_VBA_WohnRecht.pdf"
  if err.number<>0 then MsgBox "Schade"

  on error goto 0
End Sub