Note: The other languages of the website are Google-translated. Back to English

Wie finde ich alle unterstrichenen Texte in einem Bereich oder einem ganzen Arbeitsblatt in Excel?

Angenommen, Sie haben eine Reihe von Daten in einem Arbeitsblatt, und einige der Daten sind unterstrichen, und jetzt möchten Sie diese Daten unterstrichen herausfinden. Wie können Sie sie schnell herausfinden? Hier stelle ich Ihnen einige Tricks vor, mit denen Sie die unterstrichenen Texte in einem Bereich oder einem ganzen Arbeitsblatt in Excel schnell herausfinden können.

Finden Sie alle unterstrichenen Texte in einem Arbeitsblatt mit VBA

Finden Sie mit Kutools for Excel alle unterstrichenen Texte in einem Bereich oder Arbeitsblatt gute Idee3


Pfeil blau rechte Blase Finden Sie alle unterstrichenen Texte in einem Arbeitsblatt mit VBA

In Excel können Sie die Funktion "Gehe zu Spezial" nicht verwenden, um die unterstrichenen Texte herauszufinden. Daher führe ich einen VBA-Code ein, mit dem Sie alle unterstrichenen Texte in einem Arbeitsblatt finden können.

1. Drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster, und klicken Sie auf Insert > Modul.

2. Im Knallen Modul Fenster, unter VBA-Code einfügen.

VBA: Finden Sie den gesamten unterstrichenen Text in einem Arbeitsblatt.

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 Sub

3 Klicken Run Taste oder drücken F5 Schlüssel. Ein Dialogfeld zur Auswahl eines Bereichs zum Suchen unterstrichener Texte wird angezeigt.

doc finde unterstrichenen Text 1

4 Klicken OKAnschließend wird ein Dialogfeld angezeigt, in dem Sie erfahren, welche Zellen einfach unterstrichene und welche doppelt unterstrichene Texte sind.

doc finde unterstrichenen Text 2

Wenn Sie nur einen Typ von unterstrichenen Texten in einem bestimmten Bereich herausfinden möchten, kann Ihnen dieser VBA-Code nicht helfen, aber Sie können das folgende praktische Tool verwenden, um diese Aufgabe in diesem Fall zu lösen.


Pfeil blau rechte Blase Finden Sie mit Kutools for Excel alle unterstrichenen Texte in einem Bereich oder Arbeitsblatt

Wenn Sie Kutools for Excel installiert, können Sie die anwenden Wählen Sie Zellen mit Format Dienstprogramm, um die unterstrichenen Texte in einem Bereich eines ganzen Arbeitsblatts schnell herauszufinden.

Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. 

Nachher kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1. Wählen Sie eine leere Zelle aus, geben Sie Daten ein, z. B. A1, und klicken Sie auf Startseite > unterstreichenund wählen Sie einen Unterstreichungstyp aus, den Sie benötigen. Siehe Screenshot:

doc finde unterstrichenen Text 3

2. Wählen Sie dann den Bereich aus, in dem Sie die spezifischen unterstrichenen Texte herausfinden möchten, und klicken Sie auf Kutoolen > Auswählen > Wählen Sie Zellen mit Format. Siehe Screenshot:

doc finde unterstrichenen Text 4

3. Und in der Wählen Sie Zellen mit Format Dialog, klicken Sie auf Wählen Sie Format aus Zelle um die Zelle auszuwählen, die Sie in Schritt 1 mit Unterstreichung formatieren. Siehe Screenshot:

doc finde unterstrichenen Text 5
doc finde unterstrichenen Text 6

4 Klicken OK, und in der Wählen Sie Zellen mit Format Dialog, überprüfen unterstreichen nur. Siehe Screenshot:

doc finde unterstrichenen Text 7

5 Klicken OkKlicken Sie auf ein Dialogfeld, um Sie daran zu erinnern, wie viele unterstrichene Texte ausgewählt sind. Klicken Sie auf Ja um es zu schließen.

doc finde unterstrichenen Text 8

Jetzt sind alle unterstrichenen Texte ausgewählt.

doc finde unterstrichenen Text 9

Tipps:

1. Wenn Sie alle unterstrichenen Texte in einem gesamten Arbeitsblatt herausfinden möchten, klicken Sie auf die linke Ecke des Arbeitsblatts, um das gesamte Arbeitsblatt auszuwählen, und wenden Sie dann das an Wählen Sie Zellen mit Format Dienstprogramm.

2. Prüfen Ignorieren Sie die leeren Zellen in Wählen Sie Zellen mit Format Im Dialogfeld werden die leeren Zellen ignoriert, obwohl die leeren Zellen mit Unterstreichung formatiert sind.


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

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!
officetab unten
Kommentare (0)
Noch keine Bewertungen. Bewerten Sie als Erster!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL