Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim rg As Range, rgZelle As Range Set rg = Intersect(Target, Columns(2)) If Not rg Is Nothing Then For Each rgZelle In rg Cells(rgZelle.Row, 1).Value = Now Next rgZelle End If End Sub
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Range("A1").Value = Now End If End Sub
58.4k Fragen
249k Antworten
7k Nutzer