Excel VBA - If Then Else einfügen mit Hyperlink
#1
Hallo Zusammen,

ich habe gerade meinen ersten für mich "komplizierten" Code erfolgreich geschrieben.
Der Code öffnet nach einer Suche einen Hinterlegten Hyperlink aus einer anderen Tabelle.

Soweit so gut. Jetzt habe ich das Problem, dass wenn ein Hyperlink auftritt ich nicht die normale "Laufzeitfehler Warnung" sehen möchte, sondern eine eigene MsgBox.


Mein Lösungsvorschlag wäre eine If Then Else Funktion.
Nur alle meine bisherigen Versuche schlagen fehl, bzw. gehen direkt auf den Else Bereich.

Ich habe euch hier mal meinen Code ohne "If than Else" abgebildet. Könnt ihr mir sagen, was ich wo einfügen muss, damit das mit meiner MsgBox klappt?

Vielen lieben Dank.


Angehängte Dateien Thumbnail(s)
   
Top
#2
Hallo,

  If Not finden Is Nothing Then
    If finden.Hyperlinks.Count Then
      finden.Hyperlinks(1).Follow
    End If
  End If

Gruß Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • Westmaster81
Top
#3
(20.04.2020, 23:03)Kuwer schrieb: Hallo,

  If Not finden Is Nothing Then
    If finden.Hyperlinks.Count Then
      finden.Hyperlinks(1).Follow
    End If
  End If

Gruß Uwe

Danke hat funktioniert.
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste