Hyperlinks im Code abfangbar?

13/06/2008 - 10:54 von Michael Mueller | Report spam
Hi,

Ich habe folgendes vor:
Ich würde gerne in ca. 100 Zellen je einen Hyperlinks setzen, so das nach
klick auf diesen eine MsgBox mit definiertem Inhalt angezeit wird. Sollte
schon eine Msgbox sein, da ich den Inhalt einer anderen Tabelle anzeigen
möchte.
Hyperlink deshalb, da ich gerne den Handcursor hàtte, so das jeder weiß das
sich hinter diesen Zellen Informationen verbergen.

Kann man denn den Hyperlink so umbiegen/abfangen das dies möglich wàre?

Michi
 

Lesen sie die antworten

#1 Peter Schleif
13/06/2008 - 11:57 | Warnen spam
Michael Mueller schrieb am 13.06.2008 10:54 Uhr:

Ich würde gerne in ca. 100 Zellen je einen Hyperlinks setzen, so das nach
klick auf diesen eine MsgBox mit definiertem Inhalt angezeit wird.



Menü Einfügen | Hyperlink

In dem Dialog ganz am linken Rand "Aktuelles Dokument" auswàhlen. Nun
kannst Du ganz oben den Anzeige-Text eintippen, darunter die Adresse
der Zelle und darunter die Tabelle. Wenn Du das Anlegen eines solchen
Hyperlinks mit dem Makro-Recorder aufzeichnest, kannst Du den Code in
eine For-Next-Schleife einbauen und so deine 100 Links generieren.

Im VBA-Bereich der Tabelle tràgst Du noch die folgende
Ereignis-Prozedur ein:


Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Select Case Target.Range.Address(False, False)
Case "A1": MsgBox("A1") '/oder dein spezieller Code/
Case "A2": MsgBox("A2") '/oder dein spezieller Code/
Case "A3": MsgBox("A3") '/oder dein spezieller Code/
End Select

End Sub


Peter

Ähnliche fragen