Hallo,
ich habe folgendes Problem:
Ich muss eine Zeitreihe in diverse Abschnitte einteilen.Dazu existiert bereits ein Makro, welches das tut - es differenziert die Zeitreihe in Jahreszeiten, und das sieht folgendermaßen aus:
i = 1
While i <= UBound(Data, 2)
If CStr(Round(Data(3, i), 1)) = Merkmal Then
If Data(0, i) <> "" Then
Datum = Split(Data(0, i), ".")
If Datum(1) = "03" Or Datum(1) = "04" Or Datum(1) = "05" Then
Select Case Data(1, i)
Case "1"
count_spring(0) = count_spring(0) + 1
Case "2"
count_spring(1) = count_spring(1) + 1
Case "3"
count_spring(2) = count_spring(2) + 1
Case "4"
count_spring(3) = count_spring(3) + 1
Case "5"
count_spring(4) = count_spring(4) + 1
Case "6"
count_spring(5) = count_spring(5) + 1
Case "7"
count_spring(6) = count_spring(6) + 1
Case "8"
count_spring(7) = count_spring(7) + 1
Case "9"
count_spring(8) = count_spring(8) + 1
Case "10"
count_spring(9) = count_spring(9) + 1
End Select
End If
If Datum(1) = "06" Or Datum(1) = "07" Or Datum(1) = "08" Then
Select Case Data(1, i)
Case "1"
count_summer(0) = count_summer(0) + 1
Case "2"
count_summer(1) = count_summer(1) + 1
Case "3"
count_summer(2) = count_summer(2) + 1
Case "4"
count_summer(3) = count_summer(3) + 1
Case "5"
count_summer(4) = count_summer(4) + 1
Case "6"
count_summer(5) = count_summer(5) + 1
Case "7"
count_summer(6) = count_summer(6) + 1
Case "8"
count_summer(7) = count_summer(7) + 1
Case "9"
count_summer(8) = count_summer(8) + 1
Case "10"
count_summer(9) = count_summer(9) + 1
End Select
End If
If Datum(1) = "09" Or Datum(1) = "10" Or Datum(1) = "11" Then
Select Case Data(1, i)
Case "1"
count_autumn(0) = count_autumn(0) + 1
Case "2"
count_autumn(1) = count_autumn(1) + 1
Case "3"
count_autumn(2) = count_autumn(2) + 1
Case "4"
count_autumn(3) = count_autumn(3) + 1
Case "5"
count_autumn(4) = count_autumn(4) + 1
Case "6"
count_autumn(5) = count_autumn(5) + 1
Case "7"
count_autumn(6) = count_autumn(6) + 1
Case "8"
count_autumn(7) = count_autumn(7) + 1
Case "9"
count_autumn(8) = count_autumn(8) + 1
Case "10"
count_autumn(9) = count_autumn(9) + 1
End Select
End If
If Datum(1) = "12" Or Datum(1) = "01" Or Datum(1) = "02" Then
Select Case Data(1, i)
Case "1"
count_winter(0) = count_winter(0) + 1
Case "2"
count_winter(1) = count_winter(1) + 1
Case "3"
count_winter(2) = count_winter(2) + 1
Case "4"
count_winter(3) = count_winter(3) + 1
Case "5"
count_winter(4) = count_winter(4) + 1
Case "6"
count_winter(5) = count_winter(5) + 1
Case "7"
count_winter(6) = count_winter(6) + 1
Case "8"
count_winter(7) = count_winter(7) + 1
Case "9"
count_winter(8) = count_winter(8) + 1
Case "10"
count_winter(9) = count_winter(9) + 1
End Select
End If
End If
Select Case Data(1, i)
So, mein Problem ist nun: ich würde diese Zeitreihe gerne Dekadenweise (also in 10-Jahres-Abschnitten) einteilen, und nicht mehr jahreszeitenabhängig. In Spalte A der EXEL-Tabelle steht das Datum. DIeses wurde ja bisher nach dem Monat ausgesplittet. aber wie soll das nun im 10-Jahres-Rhytmus gehen, wie lege ich da die Grenzen fest?
Hat jemand eine Idee?
Gruß,Stella
ich habe folgendes Problem:
Ich muss eine Zeitreihe in diverse Abschnitte einteilen.Dazu existiert bereits ein Makro, welches das tut - es differenziert die Zeitreihe in Jahreszeiten, und das sieht folgendermaßen aus:
i = 1
While i <= UBound(Data, 2)
If CStr(Round(Data(3, i), 1)) = Merkmal Then
If Data(0, i) <> "" Then
Datum = Split(Data(0, i), ".")
If Datum(1) = "03" Or Datum(1) = "04" Or Datum(1) = "05" Then
Select Case Data(1, i)
Case "1"
count_spring(0) = count_spring(0) + 1
Case "2"
count_spring(1) = count_spring(1) + 1
Case "3"
count_spring(2) = count_spring(2) + 1
Case "4"
count_spring(3) = count_spring(3) + 1
Case "5"
count_spring(4) = count_spring(4) + 1
Case "6"
count_spring(5) = count_spring(5) + 1
Case "7"
count_spring(6) = count_spring(6) + 1
Case "8"
count_spring(7) = count_spring(7) + 1
Case "9"
count_spring(8) = count_spring(8) + 1
Case "10"
count_spring(9) = count_spring(9) + 1
End Select
End If
If Datum(1) = "06" Or Datum(1) = "07" Or Datum(1) = "08" Then
Select Case Data(1, i)
Case "1"
count_summer(0) = count_summer(0) + 1
Case "2"
count_summer(1) = count_summer(1) + 1
Case "3"
count_summer(2) = count_summer(2) + 1
Case "4"
count_summer(3) = count_summer(3) + 1
Case "5"
count_summer(4) = count_summer(4) + 1
Case "6"
count_summer(5) = count_summer(5) + 1
Case "7"
count_summer(6) = count_summer(6) + 1
Case "8"
count_summer(7) = count_summer(7) + 1
Case "9"
count_summer(8) = count_summer(8) + 1
Case "10"
count_summer(9) = count_summer(9) + 1
End Select
End If
If Datum(1) = "09" Or Datum(1) = "10" Or Datum(1) = "11" Then
Select Case Data(1, i)
Case "1"
count_autumn(0) = count_autumn(0) + 1
Case "2"
count_autumn(1) = count_autumn(1) + 1
Case "3"
count_autumn(2) = count_autumn(2) + 1
Case "4"
count_autumn(3) = count_autumn(3) + 1
Case "5"
count_autumn(4) = count_autumn(4) + 1
Case "6"
count_autumn(5) = count_autumn(5) + 1
Case "7"
count_autumn(6) = count_autumn(6) + 1
Case "8"
count_autumn(7) = count_autumn(7) + 1
Case "9"
count_autumn(8) = count_autumn(8) + 1
Case "10"
count_autumn(9) = count_autumn(9) + 1
End Select
End If
If Datum(1) = "12" Or Datum(1) = "01" Or Datum(1) = "02" Then
Select Case Data(1, i)
Case "1"
count_winter(0) = count_winter(0) + 1
Case "2"
count_winter(1) = count_winter(1) + 1
Case "3"
count_winter(2) = count_winter(2) + 1
Case "4"
count_winter(3) = count_winter(3) + 1
Case "5"
count_winter(4) = count_winter(4) + 1
Case "6"
count_winter(5) = count_winter(5) + 1
Case "7"
count_winter(6) = count_winter(6) + 1
Case "8"
count_winter(7) = count_winter(7) + 1
Case "9"
count_winter(8) = count_winter(8) + 1
Case "10"
count_winter(9) = count_winter(9) + 1
End Select
End If
End If
Select Case Data(1, i)
So, mein Problem ist nun: ich würde diese Zeitreihe gerne Dekadenweise (also in 10-Jahres-Abschnitten) einteilen, und nicht mehr jahreszeitenabhängig. In Spalte A der EXEL-Tabelle steht das Datum. DIeses wurde ja bisher nach dem Monat ausgesplittet. aber wie soll das nun im 10-Jahres-Rhytmus gehen, wie lege ich da die Grenzen fest?
Hat jemand eine Idee?
Gruß,Stella