Function runden(wert As Double) As Double
'Author: Heiko Hommes
'Date: 11.08.2003
'descr: Funktion ist aus einer Abfrage herraus aufrufbar.
'       Hier wird auf 2 Nachkommastellen kaufm. gerundet
'Aufruf: runde([FELD])

On Error GoTo fehler

Dim x As Variant
Dim h As String

h = Format$(wert * 100, "#0.00") + 0.5
' Debug.Print h
runden = Val(h) / 100

Exit Function

fehler:
Exit Function

End Function