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

Zellenansprechen und Inhalt löschen.

Forumthread: Zellenansprechen und Inhalt löschen.

Zellenansprechen und Inhalt löschen.
13.01.2004 10:51:36
Thomas
Hallo
ich habe folgendes makroprobeblem
ich möchte alle zellen ansprechen deren hintergrundfarbe = 14 ist UND in denen keine Formel enthalten ist. In diesen Zellen sollen die Werte gelöscht ist.
Mir fehlt v.a. die Verknüpfung und im code
ansonsten würde ich so vorhgenen
dim c as cell
for each c with interior.colorindex = 14...?
next c
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenansprechen und Inhalt löschen.
13.01.2004 11:44:24
Roland Hochhäuser
Hallo Thomas,
das löscht die grünen Zellinhalte ohne Formeln (Zähler ggfs. anpassen):

Sub test()
Dim i As Integer, j As Integer
For i = 1 To ActiveSheet.UsedRange.Rows.Count
For j = 1 To ActiveSheet.UsedRange.Columns.Count
If Cells(i, j).Interior.ColorIndex = 14 _
And Not Cells(i, j).HasFormula Then Cells(i, j).ClearContents
Next
Next
End Sub

Gruß Roland
Anzeige
AW: Zellenansprechen und Inhalt löschen.
13.01.2004 13:00:10
Thomas
Hi Roland,
vielen Dank!
solche sachen findet man halt leider nicht oder höchstens zufällig in Bücher für VBA-Codes für Nichtkönner.
Viele Grüße
Thomas
OT: Danke für die Rückmeldung
13.01.2004 15:28:52
Roland Hochhäuser
.
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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