Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige