Frage von Nastybelle82, 66

Excel bei Änderung des Wertes einer Zelle(zellbereich) --> Ausgabe Datum+Uhrzeit in eine andere zelle?

Hallo zusammen, wie kann ich in einer Zelle das Datum und die aktuelle Zeit bei Änderung des Wertes einer anderen Zelle(zellbereich) automatisch anzeigen lassen?

Vielen dank.

LG andi

Expertenantwort
von Suboptimierer, Community-Experte für Excel, 49

Du könntest ganz einfach das Change-Ereignis abfangen. 

Entwicklertools → Visual Basic → Tabelle 1

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then Range("B1").Value = Now()
End Sub
Expertenantwort
von Iamiam, Community-Experte für Excel, 33

  Mit Bezugseinschränkung auf Deinen Zellbereich folgendes µ:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not intersect(Target, Range("DeinZellbereich") _
is nothing then Range("Zielzelle").Value = Now()
End Sub '.value ist Vorgabeargument u.könnte entfallen

Beachte:

das µ gehört ins Modulblatts des Worksheets

und bezieht sich auch nur auf dieses (reicht normalerweise).

das Leer_

ist lediglich eine Umbruchanweisung im VBA-Code, die hier nur aus Darstellungsgründen eingefügt wurde

Wenn mehrere Blätter ausgewertet werden sollen müsste es [bzw mehrere in verschiedenen Worksheet-Modulen]  ein Makro woanders aufrufen

Antwort
von azmd108, 43

Mit diesem Makro z.B.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("A2") = Now
End If
End Sub

Keine passende Antwort gefunden?

Fragen Sie die Community

Weitere Fragen mit Antworten