|
Hallo,
Das Datum + Zeit steht in Spalte A, Aufgabe: nur Datum in Spalte B, Zeit in Spalte C
sub test()
lr = cells(rows.count, "A").end(xlup).row
for i = 2 to lr 'falls in A1 ein Label steht
cells(i, "B) = cdate(int(cells(i, "A")))
cells(i, "C" = cells(i, "A") - int(cells(i, "A"))
next i
range("C2:C" & lr).numberformat = "hh:mm"
end sub
mfg
PS: Falls in B falsche Werte stehen sollten: cells(i, "B") = cdate(int(cdbl(cells(i, "A"))))
(ungeprüft)
|