For each zu langsam

For Each zelle In Range(WorkingRange) 'Cells(1, 1), Cells(278, 38) If (zelle.Interior.Color = jbGelb) Or _ (zelle.Interior.Color = jbChange) Or _ (zelle.Interior.Color = jbInfo) Then zelle.Value = "" Next

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
sammle erstmal die Zellen in einer Range und lösche dann alle gemeinsam:
dh statt


Zelle.Value= ""

dann folgender Block:


if Bereich is Nothing then
Set Bereich = Zelle
else
Set Bereich = Union(Zelle, Bereich)
end If

und am ende dann das Löschen:


if Not Bereich is Nothing then Bereich.Clearcontents

Bei IF mit OR bietet es ich auch an, mit Select Case zu arbeiten.
hier der vollständige Code:


For Each zelle In Range(WorkingRange)    'Cells(1, 1), Cells(278, 38)
Select Case zelle.Interior.Color
Case jbGelb, jbChange, jbInfo
if Bereich is nothnig then
Set Bereich = Zelle
else
set Bereich = union(Bereich, Zelle)
end if
case else
end Select
Next
if not Bereich is nothing then Bereich.ClearContents

Gruß Daniel

Sub M_snb() sn = Range("A1:AL278") For Each it In Range("A1:AL278") If InStr( " " & jbGelb & " " & jbChange & " " & jbInfo & " ""," " & it.Interior.Color & " ") Then sn(it.Row, it.Column) = "" Next Range("A1:AL278")=sn End Sub

Sub BeschleunigungAn() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlNone End Sub Sub BeschleunigungAus() Application.ScreenUpdating = True Application.DisplayAlerts = True Application.Calculation = xlAutomatic End Sub

Hi
naja, ich habe mich nicht dazu geäußert, was du machst und was nicht.
ich habe nur die beiden Methoden beschrieben, die man anwenden kann um Zellbearbeitung über VBA zu beschleunigen.
b) ist dabei die bessere, was wahrscheinlich daran liegt, dass es auch Hintergrundaktionen gibt, die man nicht ausschalten kann.
Ich sehe das sogar so: wenn das Ausschalten der Hintergrundaktivitäten eine spürbare Beschleunigung bringt, ist der Code noch nicht optimal programmiert und kann verbessert werden.
wenn man über das Ausschalten der Hintergrundaktivitäten beschleunigt, hat man zusätzlich das Problem, dass man diese wieder einschalten muss, auch im Fehlerfall (vorallem, wenn das Makro von anderen verwendet wird) . Manche Aktivitäten werden automatisch wieder eingeschaltet (ScreenUpdating), andere nicht. Wenn also da Makro schnell genug ist, ohne dass man irgendwas umstellen muss, ist das immer besser, weil im Falle eines Abbruchs nicht irgendwas verstellt ist.
das Ausschalten der Eventmakros beschleunigt auch dann, wenn man keine hat, denn dann muss VBA nicht schauen, ob es welche gibt.
und das mit der Betreffzeile musst du mir nicht erklären.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread