Auswahl.Ersetzen nicht ersetzen, Kommas mit einem Punkt

Ich habe eine Spalte mit zahlen. Wenn ich es auf TEXT-format, als es auszuwählen, klicken Sie auf Ersetzen, und ersetzen Sie die Kommas mit einem Punkt, es funktioniert außerordentlich. Meine zahlen bekommen PUNKTE statt KOMMAS. (Dies ist, was ich will, denn ich bin nicht mit Ihr "numerischer Wert").

Wenn ich ein makro aufzeichnen, wenn Sie das tun, ist, dass der generierte code:

Columns("B:B").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Wenn ich diesen code ausführen, der auf die gleichen Daten (die im original, mit KOMMAS getrennt, es funktioniert nicht. Warum?

Meine Daten, nur für den Fall:

1.3.11
4.5.2-714156
3.1.59
4.2.2
4,3
4,3
4,3
4,3
  • Verwenden Sie die system-Trennzeichen: KOMMA und Tausendertrennzeichen PUNKT .
InformationsquelleAutor fhbeltrami | 2014-01-29
  1. 1

    Ich bin mir nicht unbedingt sicher, warum der code, den Sie zitiert habe nicht funktioniert. Aber die folgenden sollten Sie das Ergebnis glaube ich, dass Sie versuchen zu bekommen:

    Dim Cell As Range

For Each Cell In Selection
    Cell.Value = Replace(Cell.Value, ",", ".")
Next
    • deine Antwort funktioniert einwandfrei und ist die einfachste bisher... aber ich bin neugierig, warum Sie den generierten code durch das makro funktioniert nicht =/. Wenn sich niemand findet heraus, werde ich markieren Sie es als richtig... trotzdem, vielen Dank für deine Zeit =)
    InformationsquelleAutor Craig Manson
  2. 0

    Ich kann wirklich nicht erklären, warum der code nicht funktioniert, ich habe gespielt, um mit ihm für ein paar Minuten jetzt, und ich erlebe die gleichen Probleme (funktioniert, wenn ich makro aufzeichnen funktioniert nicht, während ich re-execute macro).

    Diesem jedoch gelingt, das zu tun, was Sie wollen :

    last = Cells(Rows.Count, 2).End(xlUp).Row
For x = 1 To last
    Cells(x, 2) = Replace(Cells(x, 2), ",", ".")
Next x

    Diesem code :

    1. Findet die Letzte Zeile in Spalte 2
    2. Ersetzt die Kommas mit Punkten für jede einzelne Zelle
    InformationsquelleAutor Bernard Saucier
Schreibe einen Kommentar