FollowHyperlink will nicht...

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm Label MsgBox


Excel-Version: XP und andere
nach unten

Betrifft: FollowHyperlink will nicht...
von: MRR
Geschrieben am: 09.05.2002 - 00:48:29

Hallo Ihr da draußen,
in einer Userform befindet sich ein Label, das beim Anklicken zu einer Internetseite gehen soll. Der Code dazu (sowie der von einer Public-Prozedur):

Private Sub lblWeb_Click()
Follow_Hyperlink "http://www.marketingstat.com"
End Sub

Public Sub Follow_Hyperlink(strLink)
On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=strLink, NewWindow:=True
NoCanDo:
  MsgBox "Cannot open " & strLink, vbOKOnly + vbExclamation, "No link-follow"
End Sub


Beim 1. Aufruf: Alles OK. Er versucht ins Netz zu kommen. Wenn keine Verbindung da ist, klappt es halt nicht.
Wenn ich aber ein 2. Mal bei nicht vorhandener Verbindung draufklicke, reagiert er sofort mit der Fehlermeldung und macht erst gar keine Anstalten, den Versuch auch nur zu unternehmen. Wie bekomme ich ihn dazu, den Link bei jedem Klicken zu versuchen???
Vielen Dank vorab sagt Matthias
nach oben   nach unten

Re: FollowHyperlink will nicht...
von: Hans W. Herber
Geschrieben am: 09.05.2002 - 10:27:59

Hallo Matthias,

vielleicht sowas?:


Private Sub lblWeb_Click()
   On Error GoTo ERRORHANDLER
   ActiveWorkbook.FollowHyperlink "http://www.marketingstat.com"
   End
ERRORHANDLER:
   MsgBox "Nix Connection!"
   Unload Me
End Sub

hans

nach oben   nach unten

Re: FollowHyperlink will nicht...
von: MRR
Geschrieben am: 09.05.2002 - 13:38:19

Nee- leider nicht. Das ist doch aber genau das, was ich auch in der Proz. Follow_Hyperlink gemacht habe. Er geht ja noch rein in diese Proz., versucht aber nicht mehr - wie beim ersten Versuch - die Verbindung anzugehen. Wahrscheinlich funktioniert es, wenn man von vornherein online ist. Auf jeden Fall scheitert er, wenn die Verbindung nicht da ist.
Hast du noch eine Idee oder kannst es mal checken, wie er sich bei Dir bei nicht vorhandener Verbindung verhält.

Vielen lieben Dank sagt Matthias


nach oben   nach unten

Re: FollowHyperlink will nicht...
von: Hans W. Herber
Geschrieben am: 10.05.2002 - 08:32:52

Hallo Matthias,

ich hatte den Code vor dem Posting getestet, er funktioniert bei mir wunschgemäß, das Problem scheint außerhalb von Excel zu liegen, bei den IExplorer-Einstellungen oder so.
Teste mal den Code aus folgendem Text (ohne Option Explicit):
https://www.herber.de/mailing/156101h.htm

hans

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Dateilisten in eine Tabell schreiben"