MsgBox

[schauan]

Hallöchen,

steht denn in E5 was?

Wenn nicht zB. wenn Du diese Zeile
ThisWorkbook.Worksheets("Tabelle1").Range("D5").Resize(1, 2) = Array(Date, Time)

mit dieser ersetzt
ThisWorkbook.Worksheets("Tabelle1").Range("D5").Resize(1, 3) = Array(Date, , Time)

[Houlunder]

Wenn ich das so eingebe sieht es wie folgt aus:

D5 (Datum)   D6 (Zeit)   D7(#NV)

Houlunder

[Houlunder]

Sorry, Fehler von mir

Es geht

Vielen Dank

Houlunder