Komma nicht gleich Komma?

Hallo,

ich habe mal wieder ein Problem mit Excel.

Es geht um folgendes: Über ein Command Button lasse ich ein kleines Skript ausführen. Es geht dabei um eine Zahl die nicht durch ein Komma sondern durch einen Punkt getrennt wird (z. B. 108.0). Dies wird von dem Absender leider so vorgegeben und läßt sich leider nicht ändern. Wenn ich von Hand den Ersetztenbefehl ausführe, funktioniert das auch alles so wie es soll und ich kann den Wert später auch in eine Währung umwandeln. Lasse ich den Befehl hingegen über den Button / Makro ausführen, ersetzt er mir zwar den Punkt durch ein Komma, konvertiert den Wert aber nicht in eine Währung um. Ich muß dann nachträglich Excel sagen, er soll ein Komma durch ein Komma ersetzten(!!!) Erst dann erhalte ich den Eurowert.
Ein versuch diesen Vorgang ebenfalls zu automatisieren bringt jedoch keinen Erfolg. Kann mir bitte jemand sage, woran dies liegen kann? Schon mal vielen Dank im voraus.

Das Skript das ich verwende sieht wiefolgt aus:

Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.NumberFormat = "[$€-2] #,##0.00"

Mit freundlichen Grüßen

Kai Urlch

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter,

schlecht ins Jahr reingekommen? ;-)

Für dieses Forum hier gilt die Forums-FAQ als Netiquette. Eine Anrede ist ok, sie wird bei mir auch immer dann gesetzt, wenn ich meine erste Antwort im Thread abgebe, bei Folgebeiträgen verzichte ich oft darauf, insbesondere dann, wenn es sich um kurze Texte handelt. Ich empfinde das ehrlich gesagt auch nicht als unhöflich.

Aber jetzt zum Problem. Unter der nachfolgend genannten Adresse findest Du eine Beispielarbeitsmappe mit a) Deiner und b) meiner Routine. Meine funktioniert, Deine nicht. Ob das jetzt versionsabhängig ist, weiss ich nicht, ich hatte auch nur geschrieben, dass Deine Routine bei meiner Excel-Version nicht funktioniert hatte und ich sie deshalb nicht für zuverlässig halte.

Die Beispielarbeitsmappe:
https://www.herber.de/bbs/texte/Umwandeln.xls

Wir sollten jetzt aber wieder zu dem in diesem Forum gepflegten Umgang zurückfinden ;-)

hans

Sub ff() With Selection.Cells .Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False .Value = .Value .NumberFormat = " #,##0.00" End With End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread