Unterschied Application.FindFile <=> Öffnen-Dialog
18.11.2003 17:25:03
MarcusK
ich benutze ein VBA-Makro, in dem mit Application.FindFile eine Datei (txt-Format mit TAB als Trennzeichen) geöffnet wird. Aus der geöffneten Datei werden Spalten kopiert und in das aktive Sheet eingefügt.
Problem: die Zahlenkonvertierung stimmt nicht. Steht im TXT-File z.B. 1600,123 dann wird dies als 1.600.123 im neuen Sheet (also das, das über den FindFile-Dialog neu geöffnet wurde) angezeigt. Das nachfolgende Copy'n'Paste trägt diese Werte dann natürlich auch falsch ins aktive Sheet ein.
Wenn ich die TXT-Datei dagegen ganz normal über den Datei Öffnen-Dialog öffne, stimmen die Werte!
Woran kann das liegen? Ich hab mit Formatierungen, festen Dez.stellen etc. rumprobiert, aber alles ohne Erfolg.
Anbei ein paar Werte (erste Spalte) und dahinter die Werte, wie sie dann (z.T. falsch) im Excel-Sheet stehen:
840 ==> 840
1600 ==> 1600
840,1 ==> 840,1
1600,1 ==> 1600,1
840,12 ==> 840,12
1600,12 ==> 1600,12
840,123 ==> 840.123 !!!Fehler!!!
1600,123 ==> 1.600.123 !!!Fehler!!!
0 ==> 0
2 ==> 2
0,1 ==> 0,1
2,1 ==> 2,1
0,01 ==> 0,01
2,01 ==> 2,01
0,001 ==> 0,001
2,001 ==> 2.001 !!!Fehler!!!
Alle Werte in der Spalte 'falsch', die Kommata haben, werden links ausgerichtet, die anderen rechts. Interessant ist der Unterschied zwischen 0,001 (wird richtig interpretiert) und 2,001 (wird zu 2.001); analog 840,123 (wird zu 840.123) und 1600,123 (wird zu 1.600.123).
Für Hilfe wäre ich dankbar, da ich das Makro dringend brauche. Habe hier im Forum und im Web leider auch nichts entsprechendes gefunden.
Gruß,
Marcus