version 6.50 -1 0 Sub designer end sub @EndOfDesignText@ Sub Globals 'Declare the global variables here. End Sub Public Sub Konvertieren(Zahl,Dezimalstellen) Zahl=Format(Zahl,"N"&Dezimalstellen) x=StrReplace(Zahl,".","!") ' ändert vorläufig die Punkte x=StrReplace(x,",",".") ' tauscht Kommas in Punkte aus x=StrReplace(x,"!",",") ' tauscht Punkte in Kommas aus Return x End Sub