Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C5:C50")) Is Nothing Then
If Target = "" Then
Application.EnableEvents = False
Target = Range("C5:C50")
Application.EnableEvents = True
End If
End If
Dim j As Long, i As Long, a As Long, y As Long, x As Long
a = 5
y = 5
If Not IsEmpty(Tabelle1.Range("C:C").Value) Then
Application.ScreenUpdating = False
For i = 5 To 50
With Worksheets("Worksheet1")
If .Cells(i, "C") <> "" Then
For j = 5 To 50
If IsEmpty(Worksheets("Worksheet2").Cells(j, "A")) Then
a = j
j = 50
End If
Next j
.Rows(i).Copy Destination:=Worksheets("Worksheet2").Rows(a)
.Rows(i).Delete
End If
End With
Next i
End If
End Sub