Macro ausfuellen ist extrem langsam!!!!
25.05.2004 09:09:39
Anna
mein Macro ausfuellen funktioniert richtig aber extrem also richtig extrem langsamm ca 15 min:
Sub auffuellen()
Dim zz#, sp%
Application.ScreenUpdating = False
For sp = 1 To 2
For zz = 7 To 3000
With ActiveSheet
If .Cells(zz, sp) = "" Then
.Cells(zz - 1, sp).Copy
.Paste Destination:=.Cells(zz, sp)
End If
End With
Next
Next
Application.ScreenUpdating = True
End Sub
Was mache ich falsch kann mir jemand helfen?!!!!
BITTE!!!