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

Forumthread: Mit Hyperlink Makro aufrufen

Mit Hyperlink Makro aufrufen
26.10.2004 14:36:57
M.Str.
'
Servus Forum-Aktive,
hier etwas ganz einfaches für die Forum-Spezialisten
Wie kann man mit einem Hyperlink ein Makro aufrufen ?
Geht das überhaupt ?
Vielen Dank im Voraus.
Gruss Michael
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit Hyperlink Makro aufrufen
ransi
hallo
ich weiss aber nicht ob es das ereigniss in 9.0 schon gibt.
bei 10.0 gehts so:
Option Explicit

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Call makro
End Sub

Public Sub makro()
MsgBox "Hallo, Ich bins, das makro"
End Sub
ransi
Anzeige
AW: Mit Hyperlink Makro aufrufen
26.10.2004 15:03:46
M.Str.
'
Servus Ransi,
vielen Dank für Deinen Vorschlag.
Ich habe in einem Tabellen-Blatt verschiedene Hyperlinks,
mit jedem Hyperlink möchte ich ein anderes Makro aufrufen.
In Deinem Vorschlag finde ich keine Zuordnung eines speziellen
Hyperlinks zum Makro.
Oder kann man mit dem Text einer Zelle ein Makro aufrufen,
ähnlich wie das bei einem Hyperlink auch der Fall ist ?
Gruss Michael
Anzeige
AW: Mit Hyperlink Makro aufrufen
ransi
hallo m
im prinzip geht das so :
geht bestimmt auch einfacher, aber ich weiss nicht wie.
Option Explicit

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Select Case Target.SubAddress
Case Is = "Tabelle2!A1"
Call makro1
Case Is = "Tabelle2!A2"
Call makro2
Case Else
Call makro3
End Select
End Sub

Public Sub makro1()
MsgBox "MAKRO 1"
End Sub
Public Sub makro2()
MsgBox "MAKRO2"
End Sub
Public Sub makro3()
MsgBox "Hier passiert nix !"
End Sub
ransi
Anzeige
AW: Mit Text in Zelle Makro aufrufen
ransi
hallo michael
hatte deine frage eben nicht zu ende gelesen, bzw überlesen.
mit einem text in einer zelle ein makro aufrufen geht fast genauso:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub 'gültig nur für a1
Select Case Target.Value
Case Is = "Test"
Call makro1
Case Is = "Noch ein Test"
Call makro2
Case Else 'Kannst du auch weglassen
Call makro3
End Select
End Sub


Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Select Case Target.SubAddress
Case Is = "Tabelle2!A1"
Call makro1
Case Is = "Tabelle2!A2"
Call makro2
Case Else
Call makro3
End Select
End Sub

Public Sub makro1()
MsgBox "MAKRO 1"
End Sub
Public Sub makro2()
MsgBox "MAKRO2"
End Sub
Public Sub makro3()
MsgBox "Hier passiert nix !"
End Sub
ransi
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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