Wie verstecke ich bestimmte Fehlerwerte in Excel?

Angenommen, es gibt Fehlerwerte in Ihrem Excel-Arbeitsblatt, die Sie nicht korrigieren, sondern ausblenden müssen. Um das Problem anzugehen, haben wir darüber gesprochen wie man alle Fehlerwerte in Excel ausblendet, was ist nun, wenn Sie nur bestimmte Fehlerwerte ausblenden möchten? In diesem Tutorial zeigen wir Ihnen, wie Sie diese Aufgabe auf drei Arten erledigen können.

Blenden Sie mehrere spezifische Fehlerwerte aus, indem Sie den Text mit VBA weiß machen

Wir haben zwei VBA-Codes erstellt, um Ihnen dabei zu helfen, mehrere spezifische Fehlerwerte im ausgewählten Bereich oder über mehrere Arbeitsblätter hinweg schnell auszublenden, indem Sie die Schriftfarbe der angegebenen Fehler in Weiß ändern. Bitte befolgen Sie die nachstehenden Schritte und führen Sie den Code gemäß Ihren Anforderungen aus.

1. Drücken Sie in Ihrem Excel auf Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2 Klicken Insert > Modul. Kopieren Sie dann einen der folgenden VBA-Codes in die Modul Fenster.

VBA-Code 1: Mehrere spezifische Fehlerwerte im ausgewählten Bereich ausblenden

'Updated by ExtendOffice 20220824
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ

xArrFinStr = Array("#DIV/0!”, “#N/A”, “#NAME?") 'Enter the errors to hide, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the range that includes the errors to hide:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub

xBol = False
For Each xARg In xRg.Areas
    Set xFindRg = Nothing
    Set xFindRgs = Nothing
    Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.Font.ThemeColor = xlThemeColorDark1
        
    End If
Next
If xBol Then
    MsgBox "Successfully hidden."
Else
     MsgBox "No specified errors were found."
End If
End Sub

Hinweis: Im Ausschnitt xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?") in der 12. Reihe sollten Sie ersetzen "#DIV/0!", "#NV", "#NAME?" Denken Sie bei den tatsächlichen Fehlern, die Sie ausblenden möchten, daran, jeden Wert in doppelte Anführungszeichen einzuschließen und durch Kommas zu trennen.

VBA-Code 2: Blenden Sie mehrere spezifische Fehlerwerte über mehrere Blätter hinweg aus

Sub HideSpecificErrors_WorkSheets()
'Updated by ExtendOffice 20220824
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and hide the errors. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?") 'Enter the errors to hide, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
    Set xWSh = xWb.Worksheets(xArr(xI))
    Set xFindRg = Nothing
    xWSh.Activate
    Set xFindRgs = Nothing

    Set xURg = xWSh.UsedRange
    Set xFindRgs = Nothing
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.Font.ThemeColor = xlThemeColorDark1
        
    End If
Next
If xBol Then
    MsgBox "Successfully hidden."
Else
     MsgBox "No specified errors were found."
End If
End Sub

3. Drücken Sie F5 um den VBA-Code auszuführen. Hinweis: Wenn Sie die verwendet haben VBA-Code 1, wird ein Dialogfeld angezeigt, in dem Sie aufgefordert werden, den Bereich auszuwählen, in dem Fehlerwerte gesucht und gelöscht werden sollen. Sie können auch auf eine Blattregisterkarte klicken, um das gesamte Blatt auszuwählen.

4. Das unten gezeigte Dialogfeld wird angezeigt und teilt Ihnen mit, dass die angegebenen Fehlerwerte ausgeblendet wurden. Klicken OK um den Dialog zu schließen.

5. Die angegebenen Fehlerwerte wurden sofort ausgeblendet.

Ersetzen Sie bestimmte Fehlerwerte durch andere Werte mit der Funktion Error Condition Wizard

Wenn Sie mit VBA-Code nicht vertraut sind, kann Ihnen die Funktion Fehlerbedingungs-Assistent von Kutools for Excel dabei helfen, alle Fehlerwerte, alle #N/A-Fehler oder alle Fehler außer #N/A zu finden und sie durch andere von Ihnen angegebene Werte zu ersetzen , lesen Sie bitte weiter, um herauszufinden, wie Sie diese Aufgabe erledigen können.

1. Auf der Kutoolen Registerkarte, in der Formel Gruppe, klicken Sie auf Mehr > Fehlerbedingungs-Assistent.

3 Klicken Ok. Die angegebenen Fehlerwerte werden als die von Ihnen ausgewählte Option angezeigt.

Hinweis: So verwenden Sie die Fehlerbedingungs-Assistent Funktion, sollten Sie Kutools for Excel auf Ihrem Computer installiert haben. Wenn Sie Kutools nicht installiert haben, Klicken Sie hier, um es herunterzuladen und zu installieren. Das professionelle Excel-Add-In bietet eine 30-tägige kostenlose Testversion ohne Einschränkungen.

Ersetzen Sie einen bestimmten Fehler durch andere Werte mit einer Formel

Um einen bestimmten Fehlerwert zu ersetzen, Excel's IF, IFNA und FEHLER.TYP Funktionen können Ihnen einen Gefallen tun. Aber zuerst sollten Sie den entsprechenden Zahlencode jedes Fehlerwerts kennen.

Sie haben beispielsweise eine Tabelle mit Werten wie oben gezeigt. Zum Ersetzen der # DIV / 0! Fehler mit der Textzeichenfolge Division durch Nullfehler, sollten Sie zuerst den Code dieses Fehlers finden, der lautet 2. Und wenden Sie dann die folgende Formel in der Zelle an B2, und ziehen Sie den Ausfüllgriff nach unten, um die Formel auf die folgenden Zellen anzuwenden:

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"Divide by Zero Error",A2)

In Verbindung stehende Artikel

Beste Office-Produktivitätstools

🤖	Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
	Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
	Super-Lookup: VLookup mit mehreren Kriterien  |   VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
	Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
	Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
	Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste   |  Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln   |  Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
	Top 15 Toolsets:  12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Lesen Sie mehr... Kostenfreier Download...

---

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

• Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
• Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
• Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!

Lesen Sie mehr... Kostenfreier Download...