Dezimaltrennzeichen umschalten

Bild

Betrifft: Dezimaltrennzeichen umschalten
von: IngolfG
Geschrieben am: 06.11.2003 08:51:44

Gibt es eine Möglichkeit, unter VBA das Dezimaltrennzeichen zu bestimmen, (Zugriff auf Systemsteuerung / Ländereinstellungen), um das Einlesen von txt-Dateien mit einem speziellen Format zu ermöglichen?

Die Cells.Replace-Methode funktioniert bei Umwandlung von Zahlen im "1.04"-Format nur unzureichend.

Danke
Ingolf

Bild


Betrifft: AW: Dezimaltrennzeichen umschalten
von: mika
Geschrieben am: 06.11.2003 08:57:01

Hallo Ingolf,
du kannst in Excel: Tools -> Optionen -> International das Dezimaltrennzeichen und das Tausendertrennzeichen einstellen.
Das wirkt sich dann aber, soviel ich weiss, auf das komplette Excel aus.
War es das, was du meintest?
Gruß,
Mika


Bild


Betrifft: AW: Dezimaltrennzeichen umschalten
von: Hajo_Zi
Geschrieben am: 06.11.2003 08:59:17

Hallo Mika

aber erst ab Version XP


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Dezimaltrennzeichen umschalten
von: IngolfG
Geschrieben am: 06.11.2003 09:31:56

mmmh,

das Problem ist, wenn ich die Datei einlese und das Zahlenformat umwandel, dann werden Zahlen, mit einer Zahl ungleich 0 als erste Stelle nicht korrekt umgesetzt:

Workbooks.OpenText FileName:=DateiName, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2))
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

(Beim Öffnen über Excel hingegen und Umwandeln über "Ersetzen" funktioniert das hingegen. Das aufgezeichnete Makro ist dann indentisch.


Bild

Beiträge aus den Excel-Beispielen zum Thema " Dezimaltrennzeichen umschalten"