es sollte zuerst überprüft werden, ob an der 4. Stelle bereits ein Punkt ist, wenn nicht sollte dieser eingefügt werden!
Wäre euch sehr dankbar wenn ihr mir dabei helfen könntet!
lg gisi
Sub punkt()
If Mid(Cells(1, 1).Value, 4, 1) = "." Then Exit Sub
Cells(1, 1).Value = Left(Cells(1, 1).Value, 3) & "." & Right(Cells(1, 1).Value, Val(Len(Cells(1, 1).Value) - 3))
End Sub