Für Profis:Worksheet_Change und SelectionChange

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim vNew As Variant, vold As Variant
Dim irow As Integer
If Not Application.Intersect(Target, Range("A15:aq50")) Is Nothing Then
vNew = Target.Value
Application.EnableEvents = False
On Error GoTo errorhandler
With Worksheets("Protokoll")
irow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Unprotect password:=""
.Cells(irow, 1).Value = Target.Address(False, False)
.Cells(irow, 2).Value = "Maschinenzahlen"
.Cells(irow, 3).Value = "Auslastung"
.Cells(irow, 4).Value = vNew
.Cells(irow, 5).Value = Date
.Cells(irow, 6).Value = Application.UserName
.Protect password:=""
End With
Else: Exit Sub
End If
errorhandler:
Application.EnableEvents = True
End Sub

Private Sub worksheet_change(ByVal Target As Range)
'Änderung der Maschinenzahl bis ans Ende der Tabelle übernehmen und neuen Wert ins Protokoll übernehmen
Dim r1 As Range
Dim r2 As Range
Dim rGes As Range
Dim Neuwert As Variant
Dim spalte As Integer
Dim Reihe As Integer
If Intersect(Target, Range("c4:aq13")) Is Nothing Then Exit Sub ' GoTo Aenderung
Neuwert = Target.Value
Application.EnableEvents = False
On Error GoTo errorhandler
Reihe = Target.Row
spalte = Target.Column
Worksheets("Maschinenzahlen").Activate
For i = spalte To 43
Cells(Reihe, i).Value = Neuwert
Next i
With Worksheets("Protokoll")
irow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Unprotect password:=""
If irow > 200 Then
.Rows(3).EntireRow.Delete shift:=xlUp '<<<<<
irow = 200
End If
.Cells(irow, 1).Value = Target.Address(False, False)
.Cells(irow, 2).Value = "Maschinenzahlen"
.Cells(irow, 3).Value = "geändert auf:"
.Cells(irow, 4).Value = Neuwert
.Cells(irow, 5).Value = Date
.Cells(irow, 6).Value = BenutzerName1
.Protect password:=""
End With
Hat jemand ne Idee?
MfG Benni