Wie kann man die durch Hyperlinks verknüpften Zellen in Excel hervorheben?

Wenn es einige Hyperlinks gibt, die mit demselben Arbeitsblatt oder derselben Arbeitsmappe verknüpft sind, möchte ich nun, dass die Zielzelle des angeklickten Hyperlinks bei einem Klick mit einer Farbe gefüllt wird, um die verknüpfte Zelle hervorzuheben. Wenn ein anderer Hyperlink angeklickt wird, kehrt der erste in den Normalzustand zurück, wie im folgenden Screenshot gezeigt. Ist es möglich, dieses Problem in Excel zu lösen?

Zellen, die durch Hyperlinks verknüpft sind, mit VBA-Code hervorheben

Zellen, die durch Hyperlinks verknüpft sind, mit VBA-Code hervorheben

Normalerweise gibt es keinen direkten Weg für uns, die Zielzellen hervorzuheben, die durch Hyperlinks verknüpft sind. Der folgende VBA-Code könnte Ihnen jedoch helfen. Bitte gehen Sie wie folgt vor:

1. Klicken Sie mit der rechten Maustaste auf das Tab des Arbeitsblatts, in dem Sie die Zielzellen hervorheben möchten, die durch Hyperlinks verknüpft sind, und wählen Sie dann Ansicht Code aus dem Kontextmenü aus. Kopieren Sie im geöffneten Microsoft Visual Basic for Applications-Fenster den folgenden Code und fügen Sie ihn in das leere Modul ein:

VBA-Code: Zellen hervorheben, die durch Hyperlinks verknüpft sind:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updateby Extendoffice
    Dim i As Long
    For i = 1 To ThisWorkbook.Sheets.Count
        Sheets(i).UsedRange.Interior.ColorIndex = -4142
    Next
    ActiveSheet.Cells.Interior.ColorIndex = red
    Selection.Cells.Interior.ColorIndex = 6
End Sub

2. Speichern Sie dann den Code und schließen Sie ihn. Nun wird beim Klicken auf eine Hyperlink-Zelle die verknüpfte Zielzelle sofort hervorgehoben. Wenn Sie auf einen anderen Hyperlink klicken, kehrt der erste in den Normalzustand zurück.