Durch Wertzuweisung Makro verzögert - Flackern
Peter
in einem Zellbereich zähle ich die Zellen mit bestimmter Hintergrundfarbe.
Der Code ist wie folgt:
Private Sub Worksheet_Calculate()
Dim weeks As Range, c As Range, pflicht As Range, i%
Set weeks = Sheets(1).Range("B15:B380")
Set pflicht = Sheets(1).Range("J5")
Application.ScreenUpdating = False
i = 0
For Each c In weeks.Cells
If c.Interior.ColorIndex = 50 Then
i = i + 1
End If
Next c
pflicht.Value = i
Application.ScreenUpdating = True
End Sub
Mein Problem taucht nur durch die Zuweisung pflicht.Value=i auf. Wenn ich die Zeile auskommentiere und z.B. mit MsgBox i den Wert von i ausgebe, läuft alles bestens. Wenn ich aber den Wert in der Zelle J5 (=pflicht) haben will, läuft das
Makro viel langsamer und die Anzeige flackert (in Form von Störstreifen, nicht so wie bei ScreenUpdating).
Weiß jemand Rat?
Vielen Dank und Gruß
Peter