Select Case mit Datum
19.07.2018 10:57:35
Axel
ich hänge gerade an einer Sache fest.
Ich habe eine Excel-Tabelle mit vielen Daten (Mehrzahl von Datum). Diese will ich in eine andere Excel-Tabelle kopieren in bestimmte Spalten, gestaffelt nach Quartalen.
Das ansteuern einer Zelle und kopieren ist nicht das Problem. Mein Ansatz ist grob der:
Dim Tdate as Date
.
.
.
Tdate = Qblatt.Cells(cl,k) 'Tdate ist dann also das Datum, welches überprüft wird
Select Case Tdate
Case 1/1/2014 to 3/31/2014
Zblatt.Cells(cl,4) = Qblatt.Cells(cl,k)
Case 1/4/2014 to 6/30/2014
Zblatt.Cells(cl,4) = Qblatt.Cells(cl,k)
usw.
Aber anscheinend vergleicht er das Datum nicht korrekt. Habe ich was an der Syntax falsch gemacht? Muss man in "Case" das Datum anders Schreiben?
Ach, wenn einer ne bessere Idee hat, wie ich ein Datum in 16 verschiedene Quartale einpasse, dann gerne her damit ;-).
Viele Grüße
Axel