Clear cell

Forumthread: Clear cell
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Clear cell

Clear cell

31.05.2009 00:42:10

Frank

Hallo und Guten Abend,
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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Clear cell

31.05.2009 00:50:26

Martin
AW: Clear cell

31.05.2009 01:43:18

Frank
AW: Clear cell

31.05.2009 01:53:21

Raist10
AW: Clear cell

31.05.2009 02:31:22

Frank

AW: Clear cell

31.05.2009 00:50:26

Martin

Hallo Frank,
ja, bestimmt hilft Dir das weiter:


Public Sub lese_schreibe()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
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
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Viele Grüße
Martin

AW: Clear cell

31.05.2009 01:43:18

Frank

Hallo Martin,
Super!!!
kannst Du mir vielleicht noch veraten wie ich es anstelle, das der Rahmen der Zelle nicht verändert wird. Es soll nur die Hintergrundfarbe und der Zellwert entfernt werden, das Format des Rahmens sollte erhalten bleiben.
Frank

AW: Clear cell

31.05.2009 01:53:21

Raist10

Wenn Du nur den Inhalt ändern willst, dann so:
zelle.ClearContents
Dann musst Du aber die Hintergrundfarbe separat entfernen, in dem Du sie einfach neu setzt, z.B. so:
zelle.Interior.ColorIndex = xlAutomatic
Gruß
Rainer

AW: Clear cell

31.05.2009 02:31:22

Frank

Funktioniert!!!
Danke Reiner
Gruß Frank

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!