Makrostart per Hyperlink

[Hans Faber]

Hallo Ng'ler,
ich moechte mit Excel 2000 unter Nt 4.0 ein Makro starten,
indem ich in einer Tabelle auf einen Hyperlink klicke.
Wenn ich beim Erstellen des Hyperlinks bei Textmarke z.B.
#Makro1 eintrage, so lande ich beim klicken auf den
Hyperlink im VBA-Editor im Makro1. Allerdings wird das
Makro nicht ausgeführt. Wie kriegt man das geregelt?

Eine moegliche Loesung ueber das Worksheet_SelectionChange
geht zwar auch:

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If ActiveCell.Address = Range("Makro1").Address Then
Call Makro1
End If
End Sub

Trotzdem wuerde ich aber gerne wissen, ob und wie es ueber
einen Hyperlink funktioniert?

Vielen Dank schon mal,
Gruss,
Hans Faber

[unknown]

Hallo Hans,
folgendes Code-Beispiel:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Name = "Hallo" Then
'...
'dein Makroaufruf
'...
End If
End Sub

Anmerkung:
"Hallo" ist der angezeigte Text des Hyperlinks. Soll bei jedem
Hyperlink das Makro ausgeführt werden, lässt du die If-Abfrage weg und
rufst nur das Makro auf.
Die Funktion HYPERLINK _löst_ nicht das
Worksheet_FollowHyperlink-Ereignis aus.

MfG Frank
_________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Website: http://www.xl-faq.de

[Hans Faber]

Hallo Frank,
Sorry, dass ich mich erst so spaet wieder melde. Ganz
herzlichen Dank für den Tip. Klappt alles ganz prima.
Gruss,
Hans Faber

-----Originalnachricht-----
Hallo Hans,
Private Sub Worksheet_FollowHyperlink(ByVal Target As

Hyperlink)

If Target.Name = "Hallo" Then
'...
'dein Makroaufruf
'...
End If
End Sub
"Hallo" ist der angezeigte Text des Hyperlinks. Soll bei

jedem

Hyperlink das Makro ausgeführt werden, lässt du die If-

Abfrage weg und

rufst nur das Makro auf.
Die Funktion HYPERLINK _löst_ nicht das
Worksheet_FollowHyperlink-Ereignis aus.
MfG Frank
_________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Website: http://www.xl-faq.de
.