Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen löschen, wenn Bedingung erfüllt ist (Makro)

Forumthread: Zellen löschen, wenn Bedingung erfüllt ist (Makro)

Zellen löschen, wenn Bedingung erfüllt ist (Makro)
08.01.2006 17:16:17
Thomas
Hallo Excel Experten.
Ich will folgendes umsetzten und weiß nicht so recht wie ich`s anstellen soll:
Ich will ein Makro erstellen, welches auf Knopfdruck alle Zellen löscht die eine bestimmte Fragen (z.B. braun)haben.
Meine VB-Kentnisse liegen bei knapp über Null. :(
Weiß jemand Rat?
Danke!
Thomas
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen löschen, wenn Bedingung erfüllt ist (Makro)
08.01.2006 18:26:48
Beni
Hallo Thomas,
Gruss Beni

Sub braune_Zellen_löschen()
For Each z In ActiveSheet.UsedRange
If z.Interior.ColorIndex = 53 Then z.ClearContents
Next
End Sub

AW: Zellen löschen, wenn Bedingung erfüllt ist (Makro)
08.01.2006 19:16:49
et999
Hi Thomas,
da Du schreibst Deine VBA-Kenntnisse seien knapp über Null, hier ein kleine Korrektur. Bennei hatte vergessen die Variable zu dimensionieren:

Sub braune_Zellen_löschen()
Dim z As Range
For Each z In ActiveSheet.UsedRange
If z.Interior.ColorIndex = 53 Then z.ClearContents
Next
End Sub

Gruß
Uwe
(:o)
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige