Guten Abend
Ich werte mit Hilfe einer Excel Datei jeweils grössere Datenmengen (ca. 20'000 Zeilen) aus. Im Range "xDatum" ist das jeweilige Datum pro Zeile enthalten.
Bisher habe ich das älteste und das neuste Datum ermittelt und dann alle Daten in die Tabelle "Auswertung" Spalte 1 eingetragen.
Bisheriger Code:
...
startDate = Application.Min(Range("xDatum"))
endDate = Application.Max(Range("xDatum"))
lngRow = 26
Worksheets("Auswertung").Activate
For lngC = startDate To endDate
Sheets("Auswertung").Cells(lngRow, 1) = CDate(lngC)
lngRow = lngRow + 1
Next
Nun gibt es viele Daten, an denen keine Transaktionen stattgefunden haben (und somit das entsprechende Datum im Range "xDatum" nicht existiert).
Deshalb möchte ich aus dem Range "xDatum" nur noch diejenigen Daten eintragen, die tatsächlich auch vorkommen.
Ich nehme an, dass ich die vorkommenden Daten (Mehrzahl von Datum?) in eine Variable schreiben kann, diese sortieren und dann die doppelten eliminieren kann und dann letztendlich die verbleibenden Daten am gewünschten Ort eintragen kann. Mir ist allerdings nicht klar, wie das anzustellen ist. Kann mir jemand helfen?
Vielen Dank und Gruss, Peter