Wenn Sie mit drei Dezimalstellen ein Komma automatisch einzufügen, klicken Sie auf Datei> Optionen> Erweitert, aktivieren Sie das Box und stellen Sie die Nummer ein.
Beachten Sie, dass diese Einstellung dann für alle Nummern gilt, die Sie ab diesem Zeitpunkt in allen Arbeitsmappen eingeben.
Wenn Sie nur drei Dezimalstellen in einem bestimmten Bereich des Arbeitsblatt hinzufügen möchten, können Sie ein Worksheet_Change Ereignis verwenden. Der folgende Code überwacht alle Zellen in Spalte A. Wenn eine ganze Zahl (eine Zahl ohne Dezimalzahl) eingegeben wird, teilt das Makro den Wert durch 1000, wodurch effektiv ein Dezimalpunkt und drei Dezimalstellen festgelegt werden.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
If Not Intersect(Target, Range("A:A")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
For Each cel In Target
If cel.Value = Int(cel.Value) Then cel.Value = cel.Value/1000
Next cel
Application.EnableEvents = True
End If
End Sub
Sind diese tausend Separatoren oder Dezimalpunkte? – Verzweifler
Ein sehr, sehr hacky Ansatz könnte sein, Ihre Daten ohne Dezimalpunkt zu füllen und eine Zellenformel (in der nächsten Zelle) zu verwenden, um den Wert durch 1000 zu teilen. – Verzweifler