Range mit Cells
02.06.2009 22:23:54
Johannes
hat mir jemand einen Tipp warum folgende Zeile nicht funktioniert?
Dim i As Integer
Application.ScreenUpdating = False
With ActiveSheet
For i = 1000 To 2 Step -1
If .Cells(i, 1).Value <> "" Then Range(Cells(2, 54), Cells(2, 72)).Copy
Range(Cells(i, 54), Cells(i, 72)).Paste
Next
If i > 1000 Then Exit Sub
End With
Application.ScreenUpdating = True
Range(Cells(i, 54), Cells(i, 72)).Paste Hier wird der Fehler angzeigt. Ich habe aber noch keinen Grund gefunden.
thx Joni