Gruppe
Allgemein
Problem
Bei Anklicken eines Hyperlinks soll der Cursor unter Mitnahme des angeklickten Wertes in die Zelle Ziel in Tabelle 2 springen. Die Zelle Ziel soll vor sonstigen Eingaben geschützt werden.
ClassModule: Tabelle1
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
With Worksheets("Tabelle2")
.Unprotect
.Range("Ziel").Value = Target.Range.Value
.Protect
End With
End Sub