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