Text in Excel-Zelle mit bestimmtem Format löschen

Question

Wie lösche ich einfach Zeichenfolgen in Excel-Zellen mit einer bestimmten Formatierung? Ich möchte die Zelle mit der formatierten Zeichenfolge wie die zweite Zelle löschen

Die Zeichenfolge könnte alles sein, das einzige, was ihn definiert, ist die Formatierung

Answer 1

Ich sehe keine Möglichkeit, dies ohne Code zu tun, wenn die Formatierung innerhalb einer Zelle gemischt ist. Sie könnten eine UDF wie die folgende verwenden:

Function DeleteFormat(aSource As Range) As String       
    Underline = xlUnderlineStyleSingle
    Strikethrough = True
    DeleteFormat = ""
    For i = 1 To Len(aSource.Value)
        If Not (aSource.Characters(i, 1).Font.Strikethrough = Strikethrough And     aSource.Characters(i, 1).Font.Underline = Underline) Then
            DeleteFormat = DeleteFormat & aSource.Characters(i, 1).Text
        End If
    Next

Endfunktion