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

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
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige