Thema Datum  Von Nutzer Rating
Antwort
Rot Datumsformat in Disctionary beibehalten
 01.07.2020 17:43:01 tulli
Solved
07.07.2020 16:01:25 Mase
NotSolved

Ansicht des Beitrags:
Von:
tulli		 Datum:
01.07.2020 17:43:01		 Views:
904		 Rating:
     
Antwort:
 Nein
Thema:
Datumsformat in Disctionary beibehalten

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Datumsformat in Disctionary beibehalten
 01.07.2020 17:43:01 tulli
Solved
07.07.2020 16:01:25 Mase
NotSolved