Hyperlink erstellen und folgen
15.06.2009 11:31:33
Beni
Ich habe folgendes Problem (wenn es denn eines ist ;)):
Ich habe ein 'Shape' in einer Exceltabelle, welches auf Klick (Makro) einen Hyperlink erstellt und diesem anschliessend auch folgen soll. Der erste Teil konnte ich noch selbst basteln, aber wie kann ich nun dem Hyperlink auch noch folgen?
Der Befehl: 'ActiveSheet.Hyperlinks("Shape1").Follow' geht irgendwie nicht...
Sub testlink()
Dim Kat As Variant
Dim Liste As Variant
Kat = Range("B11").Value
Liste = Range("D11").Value
'Kategorie NEWS, REP oder TIPP
If Kat = "NEU" Or Kat = "REP" Or Kat = "TIPP" Then
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Shape1"), Address:="", SubAddress:= _
_
"News!C13", ScreenTip:="Link zu News"
ActiveSheet.Hyperlinks("Shape1").Follow
End If
'Kategorie IMP
If Kat = "IMP" Then
If Liste "Diverse" Or Liste "Start" Then
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Shape1"), Address:="", _
SubAddress:= _
Liste & "!C13", ScreenTip:="Link zu" & Liste
ActiveSheet.Hyperlinks("Shape1").Follow
End If
End If
'Kategorie PDF
If Kat = "PDF" Then
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Shape1"), Address:="", SubAddress:= _
_
"Ablagehistorie!C13", ScreenTip:="Link zu Ablagehistorie"
ActiveSheet.Hyperlinks("Shape1").Follow
End If
End Sub
Bin noch ein Anfänger, also vielen Dank für eure Ratschläge!
Gruss
Beni