Punktposition = InStr(1, Zelleninhalt, ".", vbTextCompare)
If Punktposition <> 0 Then
Laenge = Len(Zelleninhalt)
Vorpunktzeichen = Mid(Zelleninhalt, 1, Punktposition - 1)
Nachpunktzeichen = Mid(Zelleninhalt, Punktposition + 1, Laenge - Punktposition)
Zelleninhalt = Vorpunktzeichen & "," & Nachpunktzeichen
End If