scripting.Dictionary Exists
03.09.2016 12:44:13
Bastian
Kann mir wer von euch weiterhelfen?
Ich würde gerne c in der Dict wieder finden mit Exists aber da ich beim hinzufügen zu dem c noch das x mit einem komma ran hänge findet er es nicht .
Gruß Basti
Sub Hmm()
Dim dict As Object
c = "25.05.2016"
x = " Hallo DU"
Set dict = CreateObject("scripting.Dictionary")
With dict
If Not .Exists(c) Then
Debug.Print CDate(c) & "," & Trim(x)
.Add CDate(c) & "," & Trim(x), 1
End If
Debug.Print "*" & CDate(c) & "*"
MsgBox .Exists("*" & CDate(c) & "*")
End With
End Sub