Gültigkeit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Errh
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("C6:AD213")) Is Nothing Then
Range("B214").Value = "Bearbeitet von " & Application.UserName _
& " am " & Now
End If
Errh:
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Integer
Dim lngLastRow As Long
If Target.Column = 1 And Selection.Count = 1 Then
Application.EnableEvents = False
With Sheets("Mitarbeiter")
lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
Bereich = Application.Match(Target, .Range(.Cells(1, 1), .Cells(lngLastRow, 1)), 0)
Target = .Cells(Bereich, 2)
End With
Application.EnableEvents = True
End If
End Sub