Hoe verbergt u specifieke foutwaarden in Excel?

Stel dat uw Excel-werkblad foutwaarden bevat die u niet hoeft te corrigeren, maar wel wilt verbergen. Eerder hebben we besproken hoe u alle foutwaarden in Excel kunt verbergen — maar wat als u alleen specifieke foutwaarden wilt verbergen? In deze handleiding laten we u drie manieren zien om dat te doen.

Verberg meerdere specifieke foutwaarden door de tekst wit te maken met VBA

We hebben twee VBA-codes gemaakt om u te helpen meerdere specifieke foutwaarden in het Bereik selecteren of over meerdere werkbladen heen snel te verbergen door de Letterkleur van de opgegeven fouten wit te maken. Volg de onderstaande stappen en voer de code uit die bij uw behoeften past.

1. Druk in Excel op de toetsencombinatie Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op 'Invoegen' > 'Module' en plak daarna één van de volgende VBA-codes in het modulevenster.

VBA-code 1: Verberg meerdere specifieke foutwaarden in het Bereik selecteren

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

Opmerking: vervang in het fragment "xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?„)" op rij 12 "#DIV/0!", "#N/A", „#NAME?" door de werkelijke fouten die u wilt verbergen. Zet elke waarde tussen dubbele aanhalingstekens en scheid ze met komma’s.

VBA-code 2: Verberg meerdere specifieke foutwaarden over meerdere bladen

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. Druk op F5 om de VBA-code uit te voeren.

4. Het onderstaande dialoogvenster verschijnt met de melding dat de opgegeven foutwaarden zijn verborgen. Klik op ‘OK’ om het venster te sluiten.

5. De opgegeven foutwaarden worden in één keer verborgen.

Vervang specifieke foutwaarden door andere waarden met de functie Opmaak Foutvoorwaarde Wizard

Als u niet bekend bent met VBA-code, helpt de functie **'Opmaak Foutvoorwaarde Wizard'** van Kutools voor Excel u eenvoudig alle foutwaarden, alle #N/A-fouten of juist alle fouten *behalve* #N/A te vinden en te vervangen door de waarden die u opgeeft. Lees hieronder hoe u dit doet.

1. Klik op het tabblad **Kutools**, in de groep **Formule**, op **Meer** > **Opmaak Foutvoorwaarde Wizard**.

3. Klik op 'OK'. De opgegeven foutwaarden worden weergegeven op basis van uw geselecteerde optie.

Vervang een specifieke fout door andere waarden met een formule

Om een specifieke foutwaarde te vervangen, helpen de Excel-functies ALS, ALS.NB en FOUT.TYPE u daarbij. Maar eerst moet u de bijbehorende numerieke code van elke foutwaarde kennen.

Stel dat u een tabel hebt met waarden zoals hierboven weergegeven. Om de fout '#DIV/0!' te vervangen door de tekstreeks 'Fout bij delen door nul', zoekt u eerst de foutcode op — in dit geval '2' — en past u vervolgens de volgende formule toe in cel B2. Sleep daarna de vulgreep omlaag om de formule op de cellen eronder toe te passen:

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

Gerelateerde artikelen

Beste Office-productiviteitshulpmiddelen

🤖	KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
	Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
	Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
	Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
	Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
	Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
	Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer

Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...

Meer details over Kutools voor Excel...Gratis downloaden...

---

Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

• Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
• Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!

Meer details over Office Tab...Gratis downloaden...

---

Alle Kutools-add-ins in één installatieprogramma.

Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.

• Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
• Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
• Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
• 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
• Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins

Meer details over Kutools for Office...Gratis downloaden...