DIFF-Funktion (Unterschied zweier Zelleninhalte vom Typ Text)
Verfasst: Mo 14. Apr 2025, 16:42
Ich habe eine Funktion gesucht,
die den Unterschied zwischen zwei Zelleninhalten zurückgibt und folgendes gebaut
Vielleicht kann es ja jemand gebrauchen.
Grüße DAPP
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 FunctionGrüße DAPP