Hallo zusammen,
Ich bin etwas ratlos und komme nicht weiter. Folgende Situation: Ich habe eine Mappe bestehend aus 2 Worksheets. Wenn ich auf Worksheet1 ein Datum eintrage (Zelle C5 - C50), soll die gesamte Zeile auf die nächst freie Zeile in Worksheet2 kopiert werden. Diese Funktion läuft auch einwandfrei.
Nun mein Problem: Wenn ich auf Worksheet2 ein beliebiges Datum lösche (Zelle C5 - C50), soll die gesamte Zeile im Anschluss an das Löschen des Datums wieder zurück auf Worksheet1 in die nächst freie Zeile kopiert werden. Kann mir da jemand helfen?

Hier mein Code:
 

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