Hallo
probier es mal in der For Next Schleife mit dieser Variante. Ohne Gewähr das es klappt!
cell.Value = CInt(Replace(cell.Value, ",", "")) cell.Value = CInt(Replace(CStr(Cell), ",", ""))
mfg