Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

scripting.Dictionary Exists

scripting.Dictionary Exists
03.09.2016 12:44:13
Bastian
Halli Hallo
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: scripting.Dictionary Exists
03.09.2016 13:21:02
Gerd
Hallo Bastian!
MsgBox Not IsError(Application.Match(c & "*", dict.keys, 0))
Gruß Gerd
Super Danke=D
03.09.2016 15:04:27
Bastian
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige