Private Sub CommandButton1_Click()
With Columns("A:C").SpecialCells(xlCellTypeConstants)
.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False
.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False
.NumberFormat = "0.0"
End With
End Sub