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
3 Antworten
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
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Microsoft Excel
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 Worksheetsund 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
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Microsoft Excel
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