DIFF-Funktion (Unterschied zweier Zelleninhalte vom Typ Text)

[D-APP]

Ich habe eine Funktion gesucht,
die den Unterschied zwischen zwei Zelleninhalten zurückgibt und folgendes gebaut

Code: Alles auswählen

Function DIFF(text1 As String, text2 As String) As String
    Dim result As String
    result = ""
    For i = 1 To Len(text1)
        If i > Len(text2) Then
            result = result & "[" & Mid(text1, i, 1) & "]"
        ElseIf Mid(text1, i, 1) <> Mid(text2, i, 1) Then
            result = result & "[" & Mid(text1, i, 1) & "->" & Mid(text2, i, 1) & "]"
        End If
    Next i
    DIFF = result
End Function

Vielleicht kann es ja jemand gebrauchen.

Grüße DAPP