HTML-Tags aus Textzeichenfolgen entfernen

Wenn mehrere Textzeichenfolgen von HTML-Tags umgeben sind, helfen Ihnen die Methoden in diesem Artikel, alle HTML-Tags zu entfernen.

• Alle Einfaches HTML-Tags mithilfe einer Formel entfernen
• Einige komplexe HTML-Tags mithilfe von VBA-Code entfernen

Alle Einfaches HTML-Tags mithilfe einer Formel entfernen

Wenn Ihre Textzeichenfolgen von einfachen HTML-Tags umgeben sind, kann Ihnen die MID-Funktion in Excel dabei helfen. Die allgemeine Syntax lautet:

• string: die Textzeichenfolge oder der Zellwert, aus der bzw. dem Sie die HTML-Tags entfernen möchten.
• text_start: die Positionsnummer des ersten Zeichens, das Sie verwenden möchten.
• tag_len: die Länge der HTML-Tags innerhalb der Textzeichenfolge.

Kopieren oder geben Sie die folgende Formel in eine leere Zelle ein:

Ziehen Sie anschließend den Ausfüllknauf auf die Zellen, auf die Sie diese Formel anwenden möchten. Alle HTML-Tags wurden wie im folgenden Screenshot gezeigt aus den Zellen entfernt:

Erklärung der Formel:

LEN(A2)-7: Diese LEN-Funktion ermittelt die Länge der Textzeichenfolge in Zelle A2 und zieht 7 ab – die Anzahl der HTML-Tags (sowohl Start- als auch Endtags) –, um exakt die Anzahl der Zeichen zu erhalten, die Sie ohne die HTML-Tags extrahieren möchten. Das Ergebnis dient als Argument „num_chars“ innerhalb der MID-Funktion.

MID(A2,4,LEN(A2)-7): Diese MID-Funktion extrahiert alle Zeichen ab dem vierten Zeichen – die Anzahl der zurückzugebenden Zeichen („num_chars“) wird dabei durch den Rückgabewert der LEN-Funktion bestimmt.

Einige komplexe HTML-Tags mithilfe von VBA-Code entfernen

Wenn sich mehrere HTML-Tags innerhalb der Textzeichenfolge befinden – wie im folgenden Screenshot dargestellt – funktioniert die obige Formel unter Umständen nicht korrekt. In einem solchen Fall hilft Ihnen der folgende VBA-Code dabei, komplexe HTML-Tags in Textzeichenfolgen zuverlässig zu verarbeiten.

1. Halten Sie in Excel die Tasten Alt + F11 gedrückt. Dadurch wird das Fenster Microsoft Visual Basic für Applikationen geöffnet.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden VBA-Code in das Modulfenster ein.

Sub RemoveTags()
'updateby Extendoffice 
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select data range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xRg.NumberFormat = "@"
    With CreateObject("vbscript.regexp")
        .Pattern = "\<.*?\>"
        .Global = True
        For Each xCell In xRg
            xCell.Value = .Replace(xCell.Value, "")
        Next
    End With
End Sub

3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Eingabefeld – bitte wählen Sie die Zellen aus, aus denen Sie die HTML-Tags entfernen möchten. Siehe Screenshot:

4. Klicken Sie anschließend auf die Schaltfläche OK, und alle HTML-Tags werden aus den ausgewählten Zellen entfernt. Siehe Screenshot:

Verwendete verwandte Funktionen:

Weitere Artikel: