Wie kann man bestimmte Fehlerwerte in Excel ausblenden?

Angenommen, es gibt Fehlerwerte in Ihrem Excel-Arbeitsblatt, die Sie nicht korrigieren, sondern ausblenden möchten. Um dieses Problem zu lösen, haben wir bereits darüber gesprochen, wie man alle Fehlerwerte in Excel ausblendet. Was aber, wenn Sie nur bestimmte Fehlerwerte ausblenden möchten? In diesem Tutorial zeigen wir Ihnen, wie Sie diese Aufgabe auf drei verschiedene Arten erledigen können.

Mehrere spezifische Fehlerwerte ausblenden, indem Sie den Text mit VBA weiß färben

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 weiß färben. Bitte folgen Sie den unten stehenden Schritten und führen Sie den Code je nach Bedarf aus.

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

2. Klicken Sie auf „Einfügen“ > „Modul“. Kopieren Sie dann einen der folgenden VBA-Codes in das „Modul“-Fenster.

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

Sub HideSpecificErrors_SelectedRange()
  '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 Codeausschnitt "xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?")" in Zeile 12 sollten Sie "#DIV/0!", "#N/A", "#NAME?" durch die tatsächlichen Fehler ersetzen, die Sie ausblenden möchten. Denken Sie daran, jeden Wert in doppelte Anführungszeichen zu setzen und sie durch Kommas zu trennen.

VBA-Code 2: Mehrere spezifische Fehlerwerte über mehrere Blätter ausblenden

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.

4. Das unten gezeigte Dialogfeld erscheint und teilt Ihnen mit, dass die angegebenen Fehlerwerte ausgeblendet wurden. Klicken Sie auf „OK“, um das Dialogfeld zu schließen.

5. Die angegebenen Fehlerwerte wurden sofort ausgeblendet.

Ersetzen Sie bestimmte Fehlerwerte durch andere Werte mit der Funktion „Fehlerbedingungs-Assistent“

Wenn Sie mit VBA-Code nicht vertraut sind, könnte Ihnen die Funktion „Fehlerbedingungs-Assistent“ von Kutools für Excel helfen, alle Fehlerwerte, alle #N/A-Fehler oder alle Fehler außer #N/A einfach zu finden und sie durch andere von Ihnen festgelegte Werte zu ersetzen. Lesen Sie weiter, um herauszufinden, wie Sie diese Aufgabe erledigen können.

1. Klicken Sie auf der Registerkarte „Kutools“ in der Gruppe „Formel“ auf „Mehr“ > „Fehlerbedingungs-Assistent“.

3. Klicken Sie auf „OK“. Die angegebenen Fehlerwerte werden so angezeigt, wie Sie es ausgewählt haben.

Ersetzen Sie einen bestimmten Fehler durch andere Werte mit einer Formel

Um einen bestimmten Fehlerwert zu ersetzen, können Ihnen die Excel-Funktionen IF, IFNA und ERROR.TYPE helfen. Zuerst sollten Sie jedoch die entsprechende Nummern-Codes jedes Fehlerwerts kennen.

Zum Beispiel haben Sie eine Tabelle mit Werten wie oben gezeigt. Um den Fehler „#DIV/0!“ durch die Textzeichenfolge „Divide By Zero Error“ zu ersetzen, sollten Sie zuerst den Code dieses Fehlers finden, welcher „2“ ist. Dann wenden Sie die folgende Formel in der Zelle „B2“ an und ziehen den Ausfüllgriff nach unten, um die Formel auf die darunter liegenden Zellen anzuwenden:

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

Verwandte Artikel