Excel gleich fixes Datum und Zeit

[tender]

Guten Abend

Ich möchte in der Zelle C5 ein Wert eingeben und dabei soll gleich in Zelle A5 das aktuelle Datum fixiert eingefügt werde und in Zell B5 die aktuelle Zeit ebenfalls fixiert.

wie kann ich das Bewerkstelligen?

Danke für Antworten

Tender

 

[nochEinAndreas]

VBA-Lösung

Hallo Tender,
wenn es wirklich nur um die Zelle C5 geht, dann geht das hier: Schreibe in den Codebereich des Tabellenblatts:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$C$5" Then Exit Sub
    Range("A5") = Date
    Range("B5") = Time
End Sub

Gruß, Andreas

 

[tender]

fixes Datum und Zeit

Hallo Andreas
Danke für den Code - funktioniert einwandfrei.

Du hast recht es ist nicht nur für Zelle C5 sondern von C5 - C48 und auch für H5 - H48 bei H müsste das Datum F5 - F48 und die Zeit G5 - G48.

Schönen Abend

 

[nochEinAndreas]

erweitert

'Nabend Tender,

hier noch der erweiterte Code, damit's in allen Zellen C5:C48 und H5:H48 klappt:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ze As Long
    Dim sp As Long
    
    ze = Target.Row
    sp = Target.Column
    
    If Intersect(Target, Union(Range("C5:C48"), Range("H5:H48"))) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Cells(ze, sp - 2) = Date
    Cells(ze, sp - 1) = Time
    Application.EnableEvents = True
End Sub

Gruß, Andreas

 

[tender]

fixes Datum und Zeit

Hallo Andreas
Vielen Dank
Alles funktioniert super.
Schönen Abend noch!