Vergleich zweier String (ohne Tabberücksichtigungs usw.)

Forumthread: Vergleich zweier String (ohne Tabberücksichtigungs usw.)
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Vergleich zweier String (ohne Tabberücksichtigungs usw.)

04.02.2020 15:55:10

AnBad

Hallo,
ich möchte feststellen, ob zwei Strings den gleichen Text beinhalten. Das bekomme ich nicht hin, da die Texte oftmals unterschiedliche Tabsetzungen, Leerschritte, Absätze usw. enthalten.
Mit replace(string1, vbtab, "") usw.
bekomme ich die Strings nicht bereinigt, so dass tats. nur der Text verglichen wird.
Kann mir jemand verraten, wie eine Lösung des Problems aussieht?
Viele Grüße
Michael

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Vergleich zweier String (ohne Tabberücksichtigungs usw.)

04.02.2020 16:24:31

UweD

AW: Vergleich zweier String (ohne Tabberücksichtigungs usw.)

04.02.2020 16:24:31

UweD

Hallo
so?


Dim Z1 As String, Z2 As String
Z1 = "gddg  dgdg" & vbTab & "hdg dgg" & vbLf & "gfgf"
Z2 = "gddg dgdg" & "hdg dgg" & "gfgf"
Z1 = Replace(Z1, " ", "")
Z2 = Replace(Z2, " ", "")
Z1 = Replace(Z1, vbLf, "")
Z2 = Replace(Z2, vbLf, "")
Z1 = Replace(Z1, vbTab, "")
Z2 = Replace(Z2, vbTab, "")
If Z1 = Z2 Then
MsgBox "Ja"
Else
MsgBox "Nein"
End If

LG UweD