Wie kann man alle Formeln in Excel anzeigen lassen?
Normalerweise können wir in Excel Formeln schnell in den Zellen anzeigen, aber Excel bietet keine Funktion zum Auflisten aller Formeln eines Arbeitsblatts. Das Auflisten aller Formeln eines Arbeitsblatts kann uns helfen, die Zellwerte anhand ihrer tatsächlichen Formeln nachzuvollziehen. Hier möchte ich erläutern, wie Sie diesen Vorgang mithilfe eines VBA-Codes realisieren können.
Alle Formeln eines Arbeitsblatts mit VBA-Code auflisten
Alle Formeln eines Arbeitsblatts mit VBA-Code auflisten
Der folgende VBA-Code hilft Ihnen, sämtliche Formeln in einer Auswahl oder auf dem gesamten Arbeitsblatt übersichtlich aufzulisten. So geht’s:
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Alle Formeln eines Arbeitsblatts auflisten
Sub ListFormulas()
'Update 20141027
Dim Rng As Range
Dim WorkRng As Range
Dim xSheet As Worksheet
Dim xRow As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlFormulas, 23)
If WorkRng Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xSheet = Application.ActiveWorkbook.Worksheets.Add
xSheet.Range("A1:C1") = Array("Address", "Formula", "Value")
xSheet.Range("A1:C1").Font.Bold = True
xRow = 2
For Each Rng In WorkRng
xSheet.Cells(xRow, 1) = Rng.Address(RowAbsolute:=False, ColumnAbsolute:=False)
xSheet.Cells(xRow, 2) = " " & Rng.Formula
xSheet.Cells(xRow, 3) = Rng.Value
xRow = xRow + 1
Next
xSheet.Columns("A:C").AutoFit
Application.ScreenUpdating = True
End Sub
3. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Es erscheint ein Eingabefeld, in dem Sie aufgefordert werden, einen Bereich oder das gesamte Arbeitsblatt auszuwählen, dessen Formelzellen Sie auflisten möchten (siehe Screenshot):
4. Klicken Sie dann auf OK, und Ihre ausgewählten Formeln werden sofort in einem neuen Arbeitsblatt vor dem aktiven Arbeitsblatt aufgelistet – mit Informationen zu Zelladresse, Formel und Wert, wie im folgenden Screenshot gezeigt:
Verwandte Artikel:
Wie wandelt man Formeln in eine Zeichenfolge in Excel um?
Wie wandelt man Textzeichenfolgen in Excel in Formeln um?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins