Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige