Kommazahlen in Excel kopieren

[limoneneis]

Nabend,

ich möchte eine Kommazahl aus der Konsole in Excel kopieren mittels Strg+c.

In der Ausgabe sieht sie so aus:
52.79618286758495



In Excel jedoch so:
5.279.618.286.758.490

Wie kann ich das verhindern?

Danke!

 

[Merle]

Der Punkt ist in Englischen Programmen und in der Sprache das Dezimaltrennzeichen.
Bei uns ist das Dezimaltrennzeichen Komma. Der Punkt ist bei uns das andere, das bei tausend kommt. Also sind tausend Euro bei uns 1.000,00€.
Das interpretiert Excel vermutlich falsch. Rechtsklick auf die Zelle, Zelle formatieren, korrektes Format wählen ODER selbst erstellen (unter Benutzerdefiniert), dann erneut einfügen. So sollte es gehen.

*edit:
Ersetze mal den Punkt durch ein Komma. Dann formatiere die Zelle für deine benötigte Anzahl an Zeichen hinter dem Komma.
Dann füge den Wert ein. Wenn so alles klappt, war es das.

 

[StefanG]

Alternativ: Suche nach "." und ersetze mit ","

 

[Merle]

Das geht nicht. Denn die Zahl wird ja von Excel komplett umformatiert. Danach dann die . durch , ersetzen endet ja in mehreren Kommas. Das geht ja nicht.

 

[limoneneis]

Rechsklick und Zelle Formatieren -> Dezimalzeichen einstellen

Vorher alle Punkte durch Kommas ersetzen. Passt ! Danke!

 

[GMG-CC]

@ Merle:
Doch, es geht schon. Aber nicht ohne VBA. Mit einer benutzerdefinierten Funktion lässt sich das durchaus lösen:

Option Explicit
Public Function Dot2NumFromCB() As Double
   'Dezimalpunkt in Komma umwandeln, Quelle = ClipBoard
   'Wichtig: Es muss ein Verweis auf  die Microsoft Forms 2.0 Objektlibrary existieren!
   'Erforderlichenfalls eine leere Form einfügen, Verweis setzen und die Form dann wieder löschen
   'Erstellt durch GMG-CC.de
   
   Dim objData As New DataObject, Rc As Variant
   On Error Resume Next 'Falls keine Zahl im ClipBoard, wird 0 (null) zurückgegeben
   objData.GetFromClipboard
   Rc = objData.GetText
   Rc = WorksheetFunction.Substitute(Rc, ".", ",", 1)
   Dot2NumFromCB = CDbl(Rc)
End Function

Zugegeben, nicht ganz offensichtlich, aber es funzt.

 

[Merle]

Ja, ok. Ich kenn und kann auch so viel VBA.
Aber: Ersetzen bezog ich schon auf die eingebaute Funktion