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 Sub3. 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?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins