Habe mal wieder einmal ein Problem welches ich scheinbar nicht ohne Euch bewältigen kann und zwar möchte ich wenn in Zelle A5 in der Zeichenkette als letzte Stelle ein "w" vorkommt lt untenstehenden CODEschnipsel reagieren.
bei meinem Code "Case Is = sTxt:" ist keine Reaktion!
Dim sTxt As String
If Target.Address = "$A$5" Then
If InStr(Target.Value, "w") Then sTxt = "w"
Select Case Target.Value
Case Is = 1: MsgBox "1.Wert"
Case Is = 11: MsgBox "2.Wert"
Case Is = sTxt: MsgBox "3.Wert"
End Select
End If
Hat vielleicht jemand ´nen TIPP?
Danke im Voraus Lorenz