Clear cell
30.05.2009 22:42:10
Frank
muss doch glatt wieder mal ne Frage fragen.
Kann man dem untenstehenden makro etwas auf die Sprünge helfen.
In einem bestimmten Bereich einer Tabelle sollen alle Zellen welche den Hintergrund grün haben leergemacht werden.
Mit dem Makro dauert das unendlich lange - pro Zelle ca. eine sekunde.
Danke fürs drüberschauen
Gruß Frank
Public Sub lese_schreibe()
Dim zelle As Range
For Each zelle In Sheets("Frank").Range("H208:AL243")
If zelle.Interior.Color = vbGreen Then
zelle.Clear
End If
Next zelle
End Sub