Vergleich von Strings funktioniert nicht richtig
27.11.2018 16:15:47
Strings
wieder mal eine Frage von mir bei der ich nicht mehr weiter weiß...
Ich versuche Dateipfade zu vergleichen. Diese werden vorher in Strings gespeichert. Nun möchte ich dass wenn der "Oberordner" nicht mit dem Übereinstimmt das ich vorgebe, dass er mir eine Fehlermeldung ausgibt.
Rein logisch müsste es funktionieren
Hier mein Code mit Instr probiert:
Sub test()
If VarDtl Like StrTyp Then
MsgBox str1
MsgBox Str15
MsgBox Str17
If InStr(str1, Str15) > 0 Or InStr(str1, Str17) > 0 Then
MsgBox "Bitte wählen Sie hier die Ordner '015_bus' oder '017_bus' aus. Vielen Dank!"
Exit Sub
End If
End Sub
Hier mein Code mit Like-Operator probiert:
Sub test()
If VarDtl Like StrTyp Then
MsgBox str1
MsgBox Str15
If str1 Like Str15 Or str1 Like Str17 Then
MsgBox "Bitte wählen Sie hier die Ordner '015_bus' oder '017_bus' aus. Vielen Dank!"
Exit Sub
End If
End Sub
Da str1 ja im Ordner 015_bus enthalten ist, müsste der
Sub beendet werden...
Hier noch die Deklaration der Variablen:
VarDtl = "Test_Tgl_26112018_Detail.xlsx"
StrTyp = "*_Detail.xlsx"
str1 = "C:\Benutzer\Anna\VBA\Test\015_bus\Test_Tgl_26112018_Detail.xlsx"
Str15 ="C:\Benutzer\Anna\VBA\Test\015_bus\"
Str 17 = "C:\Benutzer\Anna\VBA\Test\017_bus\"
Keiner der beiden vergleicht richtig. Wo liegt denn nur mein Fehler?
Viele Grüße