Danke im Vorraus
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim loletzte As Long
If Target.Column = 1 And (Target.Row >= 5 And Target.Row 11) Then
With Worksheets("Tabelle2")
loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp). _
Row, .Rows.Count) + 1
.Cells(loletzte, 1) = Target
.Cells(loletzte, 1).Offset(0, 1) = Now
End With
End If
End Sub
... And Target.Row 11
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim loletzte As Long
If Target.Count = 1 And Target.Column = 1 And (Target.Row > 4 And Target.Row