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: