Verwendest Du diese Konvertierungsroutine ?
Public Sub KonvertToGerman(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
Denn da hast Du die 2 Stellen schon dabei.
Die Zellen in der Tabelle müssen natürlich als cString eingestellt sein.
Beste Grüsse.