Range erweitern
13.09.2018 16:48:12
Tim
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range
Dim RaZelle As Range
Set RaBereich = Range("C:C")
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
Application.EnableEvents = False
ActiveSheet.Unprotect ("Test")
For Each RaZelle In RaBereich
If RaZelle "" Then
RaZelle.Offset(0, -2) = Date
RaZelle.Offset(0, -1) = VBA.Environ("Username")
End If
Next RaZelle
ActiveSheet.Protect ("Test")
Application.EnableEvents = True
End If
Set RaBereich = Nothing
End Sub