Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
Dim
lngZiel
As
Long
If
Target.Address =
"$C$1"
Then
With
Sheets(
"Tabelle2"
)
lngZiel = .Cells(.Rows.Count, 5).
End
(xlUp).Row + 1
If
lngZiel <= 5
Then
lngZiel = 5
.Cells(lngZiel, 3).Resize(1, 3).Value = Range(
"A1:C1"
).Value
End
With
Application.EnableEvents =
False
Range(
"A1:C1"
).ClearContents
Application.EnableEvents =
True
End
If
End
Sub