Datum statt Zahl
13.03.2006 10:51:34
Hock
ich habe folgendes Problem,
ich lese Daten via Makro ein,
einige Zahlen werden aber als Datum dargestellt, warum?
Kann ich dies verhindern?
Sheets lege ich mit
While AnzahlSheets < nMaxSheet
Worksheets.Add
AnzahlSheets = Worksheets.Count
Wend
an
Datei öffne ich mit ..
With wb_org.QueryTables.Add(Connection:=txt, Destination:= _
Range("A1"))
'.Name = "N34_UAT1100_0036_26_01_2006_Human_24h"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1)
.TextFileThousandsSeparator = ","
.Refresh BackgroundQuery:=False
End With
Daten schreibe ich mit folgendem in die Zellen:
wb_plaus3.Cells(zeile_plaus3, lauf).Value = .....