Hyperlink per Makro (verallgemeinern)
02.12.2002 09:25:30
Andreas
ich hyperlinke per Makro(Rekorder)von Blatt z.B.55 auf Blatt 55(2)und dann wieder zurück (jeweils Zelle A1). Die Zellfarbe setze ich auf weiß.
Wie muß ich das Makro abändern, daß das allgemein für beliebige Blätter gilt. Wenn ich z.B. in Blatt 56 bin, soll das Makro dann den Hyperlink auf 56(2) setzen und dort wieder zurück auf 56 usw.
Das Makro im Anhang. Vielen Dank für eure Hilfe!!!
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'KGr 54 (2)'!A1"
Selection.Font.ColorIndex = 2
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'KGr 54'!A1"
Selection.Font.ColorIndex = 2
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub