ich möchte gerne z.N. in Zelle B3 den Namen des Benutzers und das aktuelle Datum eintragen lassen, wenn er in einem definierten Bereich z.B. B4:B10 eine Änderung vornimmt, bzw. eine Zahl einträgt. Hat jemand eine Idee?
Vielen Dank Im Voraus
Karl
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B4:B10"), Target) Is Nothing Then Exit Sub
Range("B3").Value = Application.UserName & " " & Date
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("C5:G23"), Target) Is Nothing Then Exit Sub
Cells(3, Target.Column).Value = Application.UserName & " " & Date
End Sub