Excel VBA 6.5 Datumswerte in Quartale einordnen

[Madddin]

Hi VBA Spezies,

ich versuche krampfhaft Datumswerte die sich in einer Spalte Zeilenweise aufreihen in Quartale einzuteilen.

Die Datumswerte habe ich bereits als Variable (Variant =>Date) eingelesen.

Diese Variabeln nennen sie wir Datum(x) kann ich in einer For - Schleife wieder aufrufen. Die Datums sind immer mit TT.MM.JJJJ angeben Bsp. 01.01.2010. Die Quartalseinteilung muss jahres unabhänig geschehen somit stört theoretisch die JJJJ in Datum(x). Die Quartale zähle ich einfach über die Variable Quartal(4)&.

Die Einteilung wollte ich über einen Vergleich realisieren.

Z.b. so

For i = 1 To x
    Select Case CDate(Datum(i))
           Case CDate(1.01) To CDate(31.03)
            If Quartal(1) = 0 Then
               Quartal(1) = 1
              Else
               Quartal(1) = Quartal(1) + 1
            End If
     'usw.....
    End Select
Next i

Funtioniert natürlich nicht, vllt hat jemand von euch eine gute Idee.

Grüße
Martin

[Christian Marquardt]

Datumswert in einen String wandeln
Monatszahl extrahieren
Quartal zuordnen

[tinof]

.. oder

    
'   .....
   Select Case Month(Datum(i))
    Case 1 - 3:
    Case 4 - 6:
    ' ... usw
    End Select