Laufende Uhrzeit und Datum in Excel

Computer: Software & Programmierung Visual Basic
#1

Lieber Experte

ich möchte in einem Excelsheet die laufende Uhrzeit und das Datum anzeigen. Ich habe folgendes Makro gegoogelt, es funktioniert soweit, aber leider nur die Zeit nicht das Datum. Was muss ich im Makro ändern?

Option Explicit

Private Sub Workbook_Open()
Zeitmakro
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime EarliestTime:=DaEt, Procedure:=„Zeitmakro“, Schedule:=False
End Sub

und

Option Explicit
’ Code „Zeitmakro“
Public DaEt As Date

Sub Zeitmakro()
ThisWorkbook.Worksheets(„Tabelle1“).Range(„A2“) = Format(Time, „hh:mm:ss“)
DaEt = Now + TimeValue(„00:00:01“)
Application.OnTime DaEt, „Zeitmakro“
End Sub

Besten Dank für die Hilfe
Xaver

#2

Hallo Xaver,

Du brauchst bloß die entsprechende Zeile im Zeitmakro zu ändern in

ThisWorkbook.Worksheets(„Tabelle1“).Range(„A2“) = Format(Now, „dd.mm.yyyy hh:mm:ss“)

Mit Now wird auch das Datum ausgegeben, und die Format-Funktion zeigt auch das Datum mit an.

Gruß
Manfred

#3

Hallo Manfred
besten Dank ich bin ein mega Trottel, hatte das auch geändert aber in Deutsch tt.mm.jjjj und das ging natürlich nicht…
Gruss
Xaver