---

Function durchschnitt(wert1 As Double, wert2 As Double) As Double
    Dim summe As Double
    summe = wert1 + wert2
    durchschnitt = summe / 2
End Function

---