|
Hey Siegfried,
so richtig klar ist das immer noch nicht. Suchst du das Wort jetzt per Formel oder verknüpfst du manuell? In deiner Beschreibung steht beides, was irgendwie keinen Sinn macht.
Falls du einfach nur z.B. ='Blatt 2'!B2 eingeben willst, und hoffst, dass sich deine Eingabe in einen Link zu dieser Zelle verwandelt, dann geht das so:
Gib in einem allgemeinen Modul (z.B. Modul1) diese Funktion ein:
Function isRange(s As String) As Boolean
On Error Resume Next
isRange = IsObject(Range(Replace(s, "=", "")))
End Function
Anschließend gibst du in dem Modul, das deinem Blatt 1 entspricht diesen Code ein:
Private Sub Worksheet_Change(ByVal Target As Range)
For Each c In Target.Cells
If isRange(c.Formula) Then c.Hyperlinks.Add c, "", Replace(c.Formula, "=", ""), , c.Value
Next c
End Sub
Du kannst eine einmal eingegebene Formel auch nach unten kopieren, um auf weiere Wörter zu verlinken.
Wenn du aber doch was anderes machen willst, dann stelle doch mal eine Datei mit Beispieldaten zur Verfügung, damit man sich das besser vorstellen kann. Hochladen kannst du die u.a. hier: https://workupload.com/ Und dann stellst du den Link hier im Forum ein.
Gruß Mr. K.
|