habe ein Problem mit dem Kopieren von Datensätzen. Wenn ein Wert in der Spalte 4 einer Liste negativ ist, soll die betreffende Zeile in die nächste freie Zeile einer anderen Liste kopiert werde. Ich habe dafür einen Code, aber der Kopiert die gleichen Datensätze immer und immer wieder, wenn man zwischen den Listen wechselt. Wie kann ich denn den Code modifizieren, damit das nicht mehr passiert? Vielen Dank im Voraus. Thorsten
Private Sub Worksheet_Deactivate()
Dim c As Range
With Worksheets("ewiger Durchlaufplan")
For Each c In .Range("D3:D5000")
If c < 0 Then
c.EntireRow.Copy _
Destination:=Worksheets("ewige Verspätungsliste"). _
Cells(65536, 1).End(xlUp).Offset(1, 0)
End If
Next c
End With
End Sub