Zeitverhalten Excel 2007 (Union)
31.08.2008 22:00:03
SteffenS
mit dem Code:
For i = 13 To 5500
If PLUE.Cells(i, 4).Value = Marke Then
delze = True
Else
delze = False
End If
If delze Then
If Not rngAusblenden Is Nothing Then
Set rngAusblenden = Union(rngAusblenden, Range(PLUE.Cells(i, 1), PLUE.Cells(i, 256)))
Else
Set rngAusblenden = Range(PLUE.Cells(i, 1), PLUE.Cells(i, 256))
End If
End If
Next i
On Error GoTo oausbl
rngAusblenden.Rows.ClearContents
rngAusblenden.EntireRow.Hidden = True
Set rngAusblenden = Nothing
oausbl:
Entferne ich sehr viele Werte aus einer Tabelle.
Bis Excel 2003 funktioniert dies innerhalb von 1-2 Sekunden.
Unter Excel 2007 dauert es eine Ewigkeit (> 1 min)
Woran kann dies liegen?
Die Berechnung habe ich schon ausgeschalten und auch Application.ScreenUpdating deaktiviert.
Habt Ihr eine Idee?
Danke im Voraus.
VG
Steffen Schmerler