[gelöst] Array String,Value oder Formula?

[clag]

Hallo Kenner und Könner,

ein Array wird mit Daten aus Writer Dokument gefüllt und in ein Calc Tabelle eingefügt
prinzipiell funktioniert das schon, allerdings wird alles als String eingefügt obwohl das Array als Variant deklariert ist
speziell Datum und Zeitangaben

Code: Alles auswählen

...
dim aData01(count,5) as variant 
do 
....
aData01(x,0) = Format(xDate, "YYYY-MM-DD")
aData01(x,1) = Format(xtime, "hh:mm:ss")
aData01(x,2) = blocID
aData01(x,3) = checkElement.anchor.HyperLinkURL
aData01(x,4) = checkElement.string
x=x+1
loop ..
...
"später"
oSheet.getCellRangeByPosition(nStartCol,nStartRow,nEndCol,nEndRow).setDataArray(aData01)
 

die Spalte 0 und 1 werden mit ' als Text markiert also '2014-04.12 bzw '09:23:56
was muss ich am code ändern damit ich Datums und Zeitwerte in die Zellen schreibe?

und schon einmal Danke fürs lesen.

[F3K Total]

Hallo Clag,
Datum und Zeit müssen als Zahl übergeben werden. Falls sie nicht ohnehin schon so vorliegen, kannst du z.B. mit den Basic Funktionen Datevalue und Timevalue, die aus dem 6.7.2014 die Zahl 41826 und aus 12:00 Uhr die Zahl 0,5 machen, arbeiten.

Code: Alles auswählen

Sub Main
    dim d as long
    dim t as double
    d = datevalue("06.07.2014")
    t = timevalue("12:00")
    print d
    print t
End Sub

Gruß R

[clag]

Hallo F3K Total, (aka K )

oh mann

datevalue() hatte ich schon probiert, aber da gab es dann Mecker beim einfügen des Array
guuuut das du noch einmal dazu geschrieben hast, das und wie die Variablen zu deklarieren sind !

Das hatte ich nämlich völlig außer Acht gelassen und nicht getan uhhhhh
Aber kaum macht man es richtig (mit Deklaration der Variablen) schon funktioniert es... hahah

allerbesten Dank