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
Funtioniert natürlich nicht, vllt hat jemand von euch eine gute Idee.
Grüße
Martin
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
Code:
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
Comment