![]() |
Betrifft: Bei "Worksheet_Change" aktuelles Datum in J3
von: Bernd
Hallo verehrte Freaks,
ich hänge an einer Problemstellung zu Worksheet_Change.
Wenn auf dem Arbeitblatt "output" im Bereich B8:W90 eine Änderung erfolgt, soll in der Zelle J3 das aktulle Datum - also @heute() - eingetragen werden.
Für mich unlösbar - für Euch wahrscheinlich eine Kleinigkeit.
Grüße und Danke vorab,
Bernd
![]() |
Betrifft: AW: Bei "Worksheet_Change" aktuelles Datum in J3
von: Daniel
Geschrieben am: 19.04.2008 20:42:10
Hi
dieses Makro ins Modul der Tabelle "output" schreiben:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B8:W90")) Is Nothing Then Range("J3").Value = Date
End Sub
Gruß, Daniel
![]() |
Betrifft: @ Daniel & Tino - vielen herzlichen Dank!!!!
von: Bernd
![]() |
Betrifft: AW: Bei "Worksheet_Change" aktuelles Datum in J3
von: Tino
Geschrieben am: 19.04.2008 20:44:50
Hallo,
hiermit müsste es gehen, als Code in deine Tabelle "output"
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B8:W90")) Is Nothing Then
Application.EnableEvents = False
Range("J3") = Date
Application.EnableEvents = True
End If
End Sub
Gruß
Tino
![]() |
Beim Öffnen der Arbeitsmappe auf aktuelles Datum prüfen |