Stringvergleich funktioniert nicht
15.01.2019 09:18:56
Jürgen
Ich habe folgendes Problem, ich hoffe ihr könnt mir helfen.
Ich lese 2 Strings ein und will diese miteinander vergleichen.
Die Strings sind laut Lokal-Fenster absolut ident und haben auch den selben Datentyp (String). Trotzdem wird die If Bedingung nicht erfüllt.
Wenn man die beiden Strings mit StrComp vergleicht, so wird ausgegeben, dass diese sich unterscheiden. Dies tun sie aber nicht? Woran kann dies liegen?
Habe die üblichen Dinge wir Leerzeichen Trimmen usw. versucht, daran liegt es nicht.
Anbei der Code, ich hoffe ihr könnt mir helfen!
lg, Jürgen
Sub Makro9()
Dim ArtikelFinden As String
Dim ArtikelSuchen As String
ArtikelSuchen = Worksheets("Bestand").Cells(4, 1) 'String: "0224000"
ArtikelFinden = Worksheets("Import Ldbg").Cells(3, 2) 'String: "0224000"
Vergleich1 = StrComp(ArtikelSuchen, ArtikelFinden, 0) 'Ergebnis: 1
Vergleich2 = StrComp(ArtikelSuchen, ArtikelFinden, 1) 'Ergebnis: -1
If ArtikelSuchen = ArtikelFinden Then 'Bedingung wird nicht erfüllt?
Ausgabe = MsgBox("Artikel gefunden!", vbOKOnly)
End If
End Sub