Wie kann man alle von einer Formel referenzierten Zellen in Excel hervorheben?

Dieser Artikel erklärt, wie man alle von einer Formel referenzierten Zellen in Excel hervorhebt. Bitte folgen Sie den beiden unten aufgeführten Methoden, um dies zu erreichen.

Alle von einer Formel referenzierten Zellen mit Tastenkürzel hervorheben
Alle von einer Formel referenzierten Zellen mit VBA-Code hervorheben

Alle von einer Formel referenzierten Zellen mit Tastenkürzel hervorheben

Sie können ein Tastenkürzel verwenden, um alle von einer Formel referenzierten Zellen auszuwählen und dann manuell eine Füllfarbe auf sie anwenden.

1. Angenommen, E1 ist eine Formelzelle, und Sie müssen alle Zellen hervorheben, auf die sich diese bezieht. Bitte wählen Sie die Formelzelle E1 aus, dann drücken Sie gleichzeitig die Tasten Strg + [ (die offene eckige Klammer).

2. Nun sind die von dieser Formel referenzierten Zellen ausgewählt. Legen Sie bitte eine Füllfarbe fest, um sie hervorzuheben. Siehe Screenshot:

Alle von einer Formel referenzierten Zellen mit VBA-Code hervorheben

Sie können auch VBA-Code ausführen, um alle von einer Formel referenzierten Zellen in Excel hervorzuheben.

1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.

VBA-Code: Alle von einer Formel referenzierten Zellen in Excel hervorheben

Sub HighlightCellsReferenced()
    Dim rowCnt As Integer
    Dim i As Integer, j As Integer, strleng As Integer
    Dim strTxt As String, strFml As String
    Dim columnStr, cellsAddress As String
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Please select formula cell(s)...", _
    Title:="Kutools For Excel", Type:=8)
    
    strTxt = ""
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If yRg.Value <> "" Then
            strFml = yRg.Formula + " "
            strFml = Replace(strFml, "(", " ")
            strFml = Replace(strFml, ")", " ")
            strFml = Replace(strFml, "-", " ")
            strFml = Replace(strFml, "+", " ")
            strFml = Replace(strFml, "*", " ")
            strFml = Replace(strFml, "/", " ")
            strFml = Replace(strFml, "=", " ")
            strFml = Replace(strFml, ",", " ")
            strFml = Replace(strFml, ":", " ")
              
            For j = 1 To Len(strFml)
                If Mid(strFml, j, 1) <> " " Then
                    cellsAddress = cellsAddress + Mid(strFml, j, 1)
                Else
                    On Error Resume Next
                    Range(cellsAddress).Interior.ColorIndex = 3
                    cellsAddress = ""
                End If
            Next
        End If
    Next yRg
    Application.ScreenUpdating = True
End Sub

3. Drücken Sie die Taste F5, um den Code auszuführen. Wählen Sie im erscheinenden Dialogfeld von Kutools for Excel eine Formelzelle oder mehrere Formelzellen aus, für die Sie die referenzierten Zellen hervorheben möchten, und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:

Nun werden alle basierend auf der/den ausgewählten Formelzelle(n) referenzierten Zellen sofort rot hervorgehoben, wie im folgenden Screenshot dargestellt.

Verwandte Artikel:

• Wie kann man die Zellreferenz einer Formel in Excel konstant halten?
• Wie kann man den Namen eines Tabellentabs in einer Zelle in Excel referenzieren?