Function Runden(Zahl As Double, Stellen As Integer, Optional Stufe As Integer _
    = 0) As Double
    If Stellen > 0 Then
      If Stufe > 0 Then
        Zahl = Math.Round((Zahl / Stufe), Stellen) * Stufe
      Else
        Zahl = Math.Round(Zahl, Stellen)
      End If
    End If
    Return Zahl
  End Function