Hilfe Wert wird abgeschnitten!!!

[cysu11]

00340434167132600239
Hallo liebe Excelgemeinde,


mit folgenden Codeteil wird bei mir aus einer .txt Datei ins Excel Daten übertragen:

wahl = MsgBox("Sind Sie sicher, dass Sie die Daten importieren möchten?", vbYesNo)
If wahl <> 6 Then Exit Sub
Workbooks.OpenText Filename:= _
"P:\TempData\kostenstellen.txt", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
ActiveWorkbook.SaveAs Filename:= _
        "P:\TempData\kostenstellen.xls"

, dies klappt normalerweise ohne Probleme allerdings habe ich nun längere Zahlen/Text wie z.B. "00340121167132600239" das wird dann als Text übertragen und sieht dann so aus "3,40121E+17", dann formatieren ich das Feld als Zahl dann sieht das so aus "340121167132600000"???. Wieso wird die der Wert abgeschnitten/verändert? Ich möchte nur das der Wert 1zu1 aus der Textdatei übernommen wird also "00340121167132600239"!

Kann mir jemand helfen?

Vielen lieben Dank im Voraus
LG
Alexandra

[RPP63]

Moin!

Wieso wird die der Wert abgeschnitten/verändert?

Weil Excel nur eine Rechengenauigkeit von 15 Stellen hat.
Du musst dafür sorgen, dass die "Textzahl" aus der txt als Text importiert wird.
Sprich: In der FieldInfo:= musst Du der entsprechenden Spalte den XlColumnDataType-Wert 2 (Text) statt 1 (general) mitgeben.

Gruß Ralf

[cysu11]

Hallo Ralf,


GENIAL! Das war es, es funktioniert!


Vielen lieben Dank
LG
Alexandra