Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dezimaltrennzeichen umschalten

Dezimaltrennzeichen umschalten
06.11.2003 08:51:44
IngolfG
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dezimaltrennzeichen umschalten
06.11.2003 08:57:01
mika
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
AW: Dezimaltrennzeichen umschalten
06.11.2003 08:59:17
Hajo_Zi
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


Anzeige
AW: Dezimaltrennzeichen umschalten
06.11.2003 09:31:56
IngolfG
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.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige