Inhalt vergleichen, aber als Schleife
28.09.2022 15:23:35
Gerd
ich habe hier im Forum erfolgreich einen Code zum Inhaltlichen Vergleich von zwei Zellen (auf nur 6 Stellen) gefunden.
Leider bekomme ich es nicht hin, dass mir die Zellen in "C" mit denen in "D" als Schleife verglichen werden und einen Eintrag mit "korrekt" in "E" macht, bei einem positiven Treffer! :(
Ich hoffe es kann mir jemand helfen! :)
'vergleicht Zeichenfolge mit Länge 6
Sub Zeichenfolge_vergleichen()
Dim n As Integer
Dim Zelle1
Dim Zelle2
Set Zelle1 = Worksheets("Tabelle1").Range("C2")
Set Zelle2 = Worksheets("Tabelle1").Range("D2")
If Len(Zelle1.Value) Then
For n = 1 To Len(Zelle1.Value) - 6
If InStr(n, Zelle2.Value, Mid(Zelle1, n, 6)) And InStr(Mid(Zelle1, n, 6), " ") = 0 Then
Cells(2, 5) = "korrekt"
Exit Sub
End If
Next n
End If
End Sub
