Daten sollen nur einmal kopiert werden
04.08.2005 09:30:25
Thorsten
ich habe ein Makro, welches Daten von einer Liste in eine andere Liste kopieren soll. Das funktioniert einwandfrei. Allerdings soll en beim nächsten Ausführen des Makros nur neue Daten in die andere Liste kopiert werden und nicht die Daten nocheinmal, die schon drin stehen. Kann mir da jemand helfen. Ich hänge mal das Makro an. Vielen Dank schon mal.
Gruß Thorsten
Sub test()
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
Anzeige