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
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Call makro
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
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