Runden in eigener Funktion geht nicht !?
27.08.2003 13:48:04
Tom Test
ich lerne seit kurzem VBA und knabbere da seit heute morgen an nachstehendem Problem mit einem meiner eigengeschriebenen Testprogramme:
Ich will eingegebene Zahlen auf 2 Nachkommastellen runden und dies (nicht, weil ich es für sinnvoll halte sondern einfach nur wegen des Lerneffektes) in einer eigenen Funktion tun, d.h. so:
Function MeinRunden(ByRef Rundungsvar)
Rundungsvar = WorksheetFunction.Round(Rundungsvar, 2)
End Function
... und diese Funktion hinterher in meinem Makro mit:
MeinRunden(Uebergabewert)
aufrufen. Klappt aber nicht, d.h. der Wert wird nicht gerundet sondern er bleibt unveraendert. Gebe ich hingegen direkt in meinem Makro ein:
Uebergabewert = WorksheetFunction.Round(Uebergabewert, 2)
, dann klappt das. Mache ich irgendwas falsch oder geht es einfach nicht so wie ich es mir anfangs vorgestellt habe? Wenn es nicht so geht wie oben geschildert - warum nicht? Freue mich ueber konstruktive Hilfe :)
Gruesse
Tom