Registriert seit: 16.12.2022
Version(en): Microsoft 365
Hallo liebes Forum,
ich möchte zwei Texte auf den exakt gleichen Inhalt vergleichen. Genauer gesagt ist es eine Konsisdenzprüfung.
Ich habe Text A und Text B. Dieser muss exakt gleich sein inklusive Zeichensezung (Komma etc).
Das Ergebniss soll mir die nicht identische Stelle zeigen.
Wie macht man sowas in Excel?
Vielen Dank und schöne Grüße
Registriert seit: 21.12.2017
Version(en): MS 365 Family (6 User x 5 Geräte für jeden) Insider-Beta
16.12.2022, 10:21
(Dieser Beitrag wurde zuletzt bearbeitet: 16.12.2022, 10:23 von LCohen.)
Abgesehen davon, dass Du niemals eine Konschisdens oder eine Zaichensäzung identisch finden wirst:
Was ist bei mehreren Abweichungen? Es wird nämlich immer schwierig mit Folgeabweichungen, wenn nicht 1:1 Zeichen falsch sind, sondern m:1 oder 1:n.
Registriert seit: 29.09.2015
Version(en): 2030,5
16.12.2022, 11:35
(Dieser Beitrag wurde zuletzt bearbeitet: 16.12.2022, 11:39 von snb.)
In C1
Oder in VBA
Code:
Sub M_snb()
MsgBox StrComp("abc", "def")
MsgBox StrComp("abc", "ABC")
MsgBox StrComp("abc", "abc")
MsgBox StrComp("abc", "ABC", 1)
End Sub
Registriert seit: 13.04.2014
Version(en): 365
Hi,
solange es nur um unterschiedliche Zeichen geht, kann man das mit dieser Formel lösen (hier mit Werten in D8/E8):
Code:
=WENNFEHLER(AGGREGAT(15;6;SPALTE($1:$1)/(TEIL($D$8;SPALTE($A$1:INDEX($1:$1;LÄNGE($D$8)));1)<>TEIL($E$8;SPALTE($A$1:INDEX($1:$1;LÄNGE($D$8)));1));ZEILE(A1));"Ende")
nach unten ziehen.
Sobald an einer Stelle ein Zeichen fehlt oder zuviel ist, werden alle nachfolgenden Zeichen als Fehler angezeigt.
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 29.09.2015
Version(en): 2030,5
Ein UDF
Code:
Function F_snb(sn)
For j = 1 To Len(sn(1, 1))
If Mid(sn(1, 1), j, 1) <> Mid(sn(1, 2), j, 1) Then Exit For
Next
F_snb = IIf(j > Len(sn(1, 1)), "", Mid(sn(1, 1), j))
End Function
z.B in C1: