Option Explicit
Function
durchschnitt_falsch2(
ByVal
wert1
As Double
,
ByVal
wert2
As Double
)
summe = wert1 + wer2
durchschnitt_falsch2 = summe / 2
End Function