Hallo Gentleman,
mein ekurze Frage bezieht sich auf die dicstionary fuction. Folgende Ausgangssituation: Ich habe ein Range in column 5 das voll von datümers sind, die jedoch mehrmals vorkommen. das was das makro unten tut ist, dass für diesen einen Range mit all den datümern ein dictionary angelegt wird und alle doppelten gelöscht werden so dass nur unique datümer übrigbleiben, die ich dann in die nachbar column einfüge. Das Proiblem ist, dass die eingefügten kein Datumsformat mehr haben sondern etwas anderes, das sich mit einem zweiten befehl in Cdate umwandeln muss zelle für zelle.Daher die Frage, ob es in dictiopnary es gleich in dem datumsfoprmat gespeichert werden kann oder das es zumindest als datum eingefügt werden kann ohne es nochmal zelle für zelöle umzuwandeln?
Dim data() As String
Dim r As Long
Dim dataSet As Range
Dim dictionary As Object
Set dictionary = CreateObject("Scripting.Dictionary")
Set dataSet = ValErg.UsedRange
DataSize = dataSet.Rows.Count
'ReDim data(DataSize)
For i = 2 To UBound(data)
data(i) = dataSet.Cells(i, 5).Value
dictionary(data(i)) = 1
Next i
ValErg.Range("G2").Resize(dictionary.Count).Value = Application.Transpose(dictionary.keys())
Dim c As Range
For Each c In ValErg.UsedRange.Columns("G").Cells
c.Value = CDate(c.Value)
Next c
|