[Excel, VBA] Quartal

Gepostet am: May 19, 2011 9:41:35 AM

In Excel gibt es leider keine Formel zur Berechnung des Quartals, was leider ziemlich schade ist. Bei einem normalen Wirtschaftsjahr kann man dies noch verschmerzen, da man mittels der recht leicht merkbaren Formel =AUFRUNDEN(MONAT(A1)/3;0)&". Quartal" das Quartal recht einfach berechnen kann. Komplizierter wird die Sache, wenn man ein abweichendes Wirtschaftsjahr hat. Es gibt zwar auch dafür Lösungen, aber die kann man sich in meinen Augen nicht mehr auswendig merken. Lösung für dieses Problem bildet folgende Formel, die man Excel mittels VBA beibringen kann. 

VBA Quartal

Public Function Quartal(Datum As Date, Optional BilanzStichtag As Date = #1/1/2011#) As String     If DatePart("yyyy", Datum) = 1899 Then 'falls eine leere Zelle übergeben wird         Quartal = ""     ElseIf BilanzStichtag = #1/1/2011# Then         Quartal = DatePart("q", Datum) & ". Quartal"     Else             Month1 = Month(Datum)             Month2 = Month(BilanzStichtag)             If Month1 = Month2 + 1 Then                 Quartal = 1 & ". Quartal"             ElseIf Month1 > Month2 Then                 Quartal = Round((Month1 + 1 - Month2) / 3, 0) & ". Quartal"             Else                 Quartal = Round((Month1 + 13 - Month2) / 3, 0) & ". Quartal"             End If     End IfEnd Function

Zu der Lösung ohne VBA siehe hier.