Wie findet man alle unterstrichenen Texte in einem bestimmten Bereich oder im gesamten Arbeitsblatt in Excel?
Angenommen, Sie verfügen über einen Datenbereich in einem Arbeitsblatt, wobei einige Daten unterstrichen sind, und möchten diese unterstrichenen Daten schnell identifizieren. Wie können Sie dies effizient bewerkstelligen? Im Folgenden stelle ich Ihnen einige Methoden vor, mit denen Sie unterstrichene Texte in einem Bereich oder im gesamten Arbeitsblatt in Excel schnell finden können.
Alle unterstrichenen Texte in einem Arbeitsblatt mithilfe von VBA finden
Alle unterstrichenen Texte in einem Bereich oder Arbeitsblatt mit Kutools für Excel finden 
Alle unterstrichenen Texte in einem Arbeitsblatt mithilfe von VBA finden
In Excel können Sie die Funktion „Gehe zu Besonderes“ nicht nutzen, um unterstrichene Texte zu finden. Deshalb stelle ich Ihnen einen VBA-Code vor, mit dem Sie alle unterstrichenen Texte in einem Arbeitsblatt schnell identifizieren können.
1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen, und klicken Sie auf Einfügen > Modul.
2. Fügen Sie im erscheinenden Modul-Fenster den folgenden VBA-Code ein.
VBA: Alle unterstrichenen Texte in einem Arbeitsblatt finden.
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. Klicken Sie auf die Schaltfläche Ausführen oder drücken Sie die Taste F5. Anschließend öffnet sich ein Dialogfeld, in dem Sie einen Bereich auswählen können, in dem nach unterstrichenen Texten gesucht werden soll.
4. Klicken Sie auf OK, woraufhin ein weiteres Dialogfeld angezeigt wird, das Ihnen mitteilt, welche Zellen einfach und welche doppelt unterstrichen sind.
Wenn Sie nur eine bestimmte Art unterstrichener Texte in einem festgelegten Bereich suchen möchten, ist dieser VBA-Code nicht geeignet – doch genau dafür bietet das unten beschriebene praktische Tool die ideale Lösung.
Alle unterstrichenen Texte in einem Bereich oder Arbeitsblatt mit Kutools für Excel finden
Falls Sie Kutools für Excel installiert haben, können Sie das Hilfsprogramm Zellen mit ähnlichem Format auswählen verwenden, um unterstrichene Texte in einem Bereich oder im gesamten Arbeitsblatt schnell zu finden.
Nachdem Sie Kutools für Excelkostenlos installiert haben, gehen Sie wie folgt vor:
1. Wählen Sie eine leere Zelle aus, geben Sie beispielsweise „A1“ ein und klicken Sie auf Start > Unterstreichen, um die gewünschte Unterstreichungsart auszuwählen. Siehe Screenshot:
2. Wählen Sie anschließend den Bereich aus, in dem Sie die spezifischen unterstrichenen Texte finden möchten, und klicken Sie auf Kutools > Auswählen > Zellen mit ähnlichem Format auswählen. Siehe Screenshot:
3. Klicken Sie im Dialogfeld Zellen mit ähnlichem Format auswählen auf Format von Zelle auswählen, um die Zelle auszuwählen, die Sie in Schritt 1 mit einer Unterstreichung formatiert haben. Siehe Screenshot:
4. Klicken Sie auf OK und aktivieren Sie im Dialogfeld Zellen mit ähnlichem Format auswählen ausschließlich das Kontrollkästchen Unterstreichen. Siehe Screenshot:
5. Klicken Sie auf OK, woraufhin ein Dialogfeld erscheint, das Ihnen mitteilt, wie viele unterstrichene Texte ausgewählt wurden. Klicken Sie anschließend auf Ja, um es zu schließen.
Jetzt sind alle unterstrichenen Texte ausgewählt.
Tipps:
1. Wenn Sie alle unterstrichenen Texte im gesamten Arbeitsblatt suchen möchten, klicken Sie auf die obere linke Ecke des Arbeitsblatts, um das gesamte Arbeitsblatt auszuwählen, und wenden Sie anschließend das Hilfsprogramm Zellen mit ähnlichem Format auswählen an.
2. Aktivieren Sie im Dialogfeld die Option Leere Zellen ignorieren und wählen Sie Zellen mit ähnlichem Format auswählen, damit auch leere Zellen berücksichtigt werden, die mit einer Unterstreichung formatiert sind.
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