Erklärung:
Um diese Aufgabe zu lösen, kopieren Sie die folgende Funktion in ein Modul der entsprechenden Arbeitsmappe.

Public Function Anstossen(Ende As Integer)
Dim summe As Long, i As Integer
For i = 1 To Ende - 1
summe = summe + i
Next i
Anstossen = summe
End Function

Hinweis:
Der Aufruf der Funktion sieht etwa so aus:

=Anstossen(x)

x ist der Bezug auf eine Zelle, die die Anzahl Personen enthält, oder direkt die Zahl.

Erklärung:
Um diese Aufgabe zu lösen, kopieren Sie die folgende Funktion in ein Modul der entsprechenden Arbeitsmappe.

Public Function KWoche(d As Date)
Dim t As Long
t = DateSerial(Year(d + (8 - WeekDay(d)) Mod 7 - 3), 1, 1)
KWoche = ((d - t - 3 + (WeekDay(t) + 1) Mod 7)) \ 7 + 1
End Function

Hinweis:
Der Aufruf der Funktion sieht etwa so aus:

=KWoche(x)

x ist der Bezug auf eine Zelle, die das Datum enthält.

Erklärung:
Die folgende Formel multipliziert den Wert x * 20, rundet das Resultat auf 0 Stellen und dividiert es danach durch 20. Dadurch wird auf 5 Cents auf- oder abgerundet.

Beispiel:
0.03 * 20 = 0.6
Das gerundete Resultat ist aber 1
1 / 20 = 0.05

=RUNDEN(((x*20));0)/20

Hinweis:
x muss natürlich durch eine Zahl oder einen Zellbezug ersetzt werden.