Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ActiveWorkbook.FollowHyperlink - Fehlermeldung

Forumthread: ActiveWorkbook.FollowHyperlink - Fehlermeldung

ActiveWorkbook.FollowHyperlink - Fehlermeldung
k
Hallo,
habe in einer Userform einige Links zum Server...in Label.Captions integriert.
Nun möchte ich aber sicherstellen, dass wenn ein User darauf klickt, dass er
nicht eine Fehlermeldung bekommt, sondern eine Msgbox aufgeht mit einem
netten Hinweis, das die Verbindung zum Server derzeit nicht zur Verfügung
steht.
Wie kann ich eine Fehlermeldung eines Hyperlinks vermeiden, bzw. wenn sie
käme so abfangen, dass ich eine MsgBox anzeigen lasse anstelle der Fehler-
meldung ? Habe dazu nichts im Archiv und online gefunden...
Mein verwendeter Aufruf in Kurzform:
Private Sub L20_Click()
ActiveWorkbook.FollowHyperlink L20.Caption
End Sub
Vielen Dank und Gruß
Kay
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: ActiveWorkbook.FollowHyperlink - Fehlermeldung
18.08.2009 17:00:09
k
Hi,
habe es so gelöst bekommen, hier am Beispiel vom Label16:
Erst unter Verweise: "Microsoft Scripting Runtime" aktivieren !
Option Explicit
Public objFSO As New FileSystemObject
Private Sub L16_Click()
If objFSO.FileExists(L16.Caption) Then
ActiveWorkbook.FollowHyperlink L16.Caption
Else
MsgBox "Leider konnte die Datei nicht geöffnet werden, " & VBA.Chr(13) & "bitte überprüfen  _
Sie den angegebenem Pfad!", vbInformation + vbOKOnly, "File nicht vorhanden"
End If
End Sub
Gruß
Kay
Anzeige
AW: ActiveWorkbook.FollowHyperlink - Fehlermeldung
18.08.2009 18:12:01
Tino
Hallo,
Du kannst es auch mit der DIR() Funktion machen, ist die Datei nicht vorhanden bekommst du einen Leerstring als Rückgabe.
Beispiel:
If Dir(Pfad u. Datei) "" then
Gruß Tino
AW: ActiveWorkbook.FollowHyperlink - Fehlermeldung
18.08.2009 18:14:39
k
Danke für den Tip...habe ihn mir als Option mit notiert in meinen dicken "TINO-Excel-Ornder" ;o)
Gruß
Kay
Anzeige
;
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige