Mit der Funktion RAV runde ich Zahlen auf das Vielfache eines bestimmten Wertes.
Runde ich beispielsweise 100.0063 mit mit der Rundungseinheit 0.01 dann erhalte ich mittels RAV(100.0063,0.01) 100.01
Ändert sich die Rundungseinheit auf 0.001, dann erhalte ich mit RAV(100.0063,0001) 100.0063.
Im ersten Fall möchte ich den Betrag auf zwei Nachkommastellen runden:
With rTemp 'rTemp ist ein Range, der Zahlen enthält
.NumberFormat = "#,##0.00;-#,##0.00"
End With
Im zweiten Fall möchte ich den Betrag auf vier Nachkommastellen runden:
With rTemp 'rTemp ist ein Range, der Zahlen enthält
.NumberFormat = "#,##0.0000;-#,##0.0000"
End With
Meine Frage: wie kann ich dem Range rTemp das NumberFormat in Abhängigkeit der Variable "Einheit" (vgl. nachstehende Funktion) übergeben unter der Annahme, dass die Einheit 1, 0.01, 0.0001 und 0.05 sein kann?
Vielen Dank für jeden Hinweis.
Gruss, Peter
Public Function rav(Zahl As Double, Einheit As Double) 'rav = runden auf Vielfaches
'rundet die übergebene Zahl auf die nächste Vielfache der Einheit
rav = Round(Zahl / Einheit, 0) * Einheit
End Function