Case funktioniert nicht..
25.11.2016 00:58:52
Jochen
ich arbeite gerade an einem Tool indem ich case im Zusammenhang mit Daten verwende.
Mein Problem liegt in diesem kleinen Code verborgen:
Sub testcase()
Dim a As Date
Dim b As Date
Dim i As String
a = "25.11.2016"
b = "25.11.2016"
Select Case a
Case a = b
i = "Funktioniert nicht!"
End Select
If a = b Then
i = "Funktioniert!"
End If
End Sub
Kann mir jemand sagen warum meine case Anweisung übersprungen wird und die If Anweisung funktioniert?!
Danke und Gruß
Jochen
Anzeige