|
Hallo ich möchte gern erreichen, dass der Code alle Zeilen durchgeht und dort wo die If Bedingung zutrifft, er ab dort die Spalte 20 ab Zeile i bis Zeile 3000 markiert ausschneidet und bei Zeile i+1 ebenfalls Spalte 20 wieder einfügt. Sozusagen, alles eins runter schiebt. Wie kann ich nun definieren, dass Excel den Bereich in Spalte 20 von i bis Zeile 3000 markieren soll? Habe es so versucht, aber gibt eine Fehlermeldung aus:
For i = 10 To 3000
If Cells(i, 21).DisplayFormat.Font.Color = RGB(0, 0, 0) And Cells(i, 21).Value > 0 Then
Cells(i - 3000, 20).Select --------------> FEHLER
Selection.Cut
Cells(i + 1, 20).Select
ActiveSheet.Paste
Cells(i, 20).Value = "=""NAEL wurde hinzugefügt am: ""&TEXT(TODAY(),""TT.MM.JJJJ"")"
z = z + 1
End If
Next i
LG Till
|