Makroerweiterung
24.07.2015 15:22:51
Michael
das folgende Makro setze ich erfolgreich ein, um die Zelle, die ich von einem Hyperlink (Funktion] aus ansteuere, farlich einzurahmen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static sFromAddress As String
If sFromAddress = "$B$3" Or sFromAddress = "$G$3" Then ' Adresse der Zelle mit _
der Hyperlink-Formel
With Me.Shapes("Marker")
.Top = Target.Top - 1
.Height = Target.Height + 2
.Width = Target.Width + 2
.Left = Target.Left - 1
.Visible = msoCTrue
End With
Else
Me.Shapes("Marker").Visible = msoFalse
End If
sFromAddress = Target.Address
End Sub
Jetzt muss ich aber eine Zelle in einem andren Tabellenblatt ansteuern. Für diesen Fall kriege ich das Makro einfach nicht angepasst.
Vielen Dank für Eure Unterstützung!
Michael