|
Hallo,
das Cells(i - 3000, 20) kann nur zum Fehler fuehren. Sagen wir mal, i ist gerade 2800. Wieviel ist dann i-3000? -200. Also das kann nicht funktionieren.
Warum kommst du hier ueberhaupt darauf 3000 abzuziehen?
Ausserdem willst du ja nicht nur eine Zelle ausschneiden, sondern einen Bereich. Also musst du auch eine Range festlegen mit einer Startzelle und einer Endzelle.:
For i = 10 To 3000
If Cells(i, 21).DisplayFormat.Font.Color = RGB(0, 0, 0) And Cells(i, 21).value > 0 Then
Range(Cells(i, 20), Cells(3000, 20)).Cut
Cells(i + 1, 20).Paste
Cells(i, 20).value = "=""NAEL wurde hinzugefügt am: ""&TEXT(TODAY(),""TT.MM.JJJJ"")"
Z = Z + 1
End If
Next i
Gruss Torsten
|