Hoe vindt u alle onderstreepte teksten in een bereik of op het volledige werkblad in Excel?
Stel dat u een gegevensbereik hebt in een werkblad waarvan sommige waarden zijn onderstreept, en u wilt die onderstreepte gegevens snel opsporen. Hoe doet u dat efficiënt? Hieronder deelt ik handige trucs om in Excel razendsnel alle onderstreepte teksten te vinden — zowel binnen een specifiek bereik als in het volledige werkblad.
Zoek alle onderstreepte teksten in een werkblad met VBA
Zoek alle onderstreepte teksten in een bereik of werkblad met Kutools voor Excel 
Zoek alle onderstreepte teksten in een werkblad met VBA
In Excel kunt u de functie ‘Ga naar speciaal’ helaas niet gebruiken om onderstreepte teksten te vinden. Daarom deel ik met u een VBA-code waarmee u alle onderstreepte teksten in een werkblad eenvoudig opspoort.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen en klik op Invoegen > Module.
2. Plak in het verschijnende Module-venster onderstaande VBA-code.
VBA: Zoek alle onderstreepte teksten in een werkblad.
Sub SearchForUnderline()
'Updateby20150910
Dim Rg As Range, Rg1 As Range
Dim I As Long
Dim xAddress As String, xAddress1 As String, xAddress2 As String
Dim Result As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
Set Rg = Application.Intersect(Rg, Application.ActiveSheet.UsedRange)
If Rg Is Nothing Then Exit Sub
Set Rg = Rg.SpecialCells(xlCellTypeConstants)
If Rg Is Nothing Then Exit Sub
For Each Rg1 In Rg
For I = 1 To Len(Rg1)
If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleSingle Then
If xAddress1 = "" Then
xAddress1 = Rg1.Address
Else
xAddress1 = xAddress1 & ", " & Rg1.Address
End If
Exit For
End If
Next
For I = 1 To Len(Rg1)
If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleDouble Then
If xAddress2 = "" Then
xAddress2 = Rg1.Address
Else
xAddress2 = xAddress2 & ", " & Rg1.Address
End If
Exit For
End If
Next
Next
If xAddress1 <> "" Then Result = "Single underline address:" & vbCr & xAddress1 & vbCr & vbCr
If xAddress2 <> "" Then Result = Result & "Double underline address:" & vbCr & xAddress2
If Result <> "" Then MsgBox Result
End Sub3. Klik op Uitvoeren of druk op F5. Er verschijnt dan een dialoogvenster waarin u een bereik kunt selecteren om onderstreepte teksten te zoeken.
4. Klik op OK, waarna een dialoogvenster verschijnt met informatie over welke cellen enkelvoudig en welke dubbel onderstreept zijn.
Als u slechts één type onderstreepte tekst wilt vinden binnen een specifiek bereik, helpt deze VBA-code u helaas niet verder. In dat geval kunt u echter het handige hulpmiddel hieronder gebruiken om de taak uit te voeren.
Zoek alle onderstreepte teksten in een bereik of werkblad met Kutools voor Excel
Als u Kutools voor Excel hebt geïnstalleerd, kunt u het hulpprogramma Selecteer cellen met een vergelijkbaar formaat gebruiken om snel onderstreepte teksten te vinden in een bereik of in het volledige werkblad.
Na gratis installeren vanKutools voor Excel, gaat u als volgt te werk:
1. Selecteer een lege cel, typ er bijvoorbeeld „A1” in en klik op Start > Onderstreping en kies het gewenste type onderstreping. Zie de schermafbeelding:
2. Selecteer vervolgens het bereik waarin u de specifieke onderstreepte teksten wilt vinden en klik op Kutools > Selecteren > Selecteer cellen met een vergelijkbaar formaat. Zie de schermafbeelding:
3. Klik in het Selecteer cellen met een vergelijkbaar formaat-dialoogvenster op Selecteer formaat vanaf cel om de cel te selecteren die u in stap 1 hebt voorzien van een onderstreping. Zie de schermafbeelding:
4. Klik op OK en schakel in het Selecteer cellen met een vergelijkbaar formaat-dialoogvenster alleen Onderstreping in. Zie de schermafbeelding:
5. Klik op Ok, waarna een dialoogvenster verschijnt met het aantal geselecteerde onderstreepte teksten. Klik op Ja om het te sluiten.
Nu zijn alle onderstreepte teksten geselecteerd.
Tips:
1. Als u alle onderstreepte teksten in een volledig werkblad wilt vinden, selecteert u eerst het hele werkblad door op de linkerbovenhoek te klikken en past u vervolgens het hulpprogramma Selecteer cellen met een vergelijkbaar formaat toe.
2. Schakel Lege cellen negeren in het Selecteer cellen met een vergelijkbaar formaat-dialoogvenster in; het programma negeert lege cellen, ook al zijn deze voorzien van een onderstreping.
Beste Office-productiviteitshulpmiddelen
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...
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!
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