Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1752to1756
1752to1756
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: eingefärbte Zellen "entfärben"

Forumthread: VBA: eingefärbte Zellen "entfärben"

VBA: eingefärbte Zellen "entfärben"
16.04.2020 10:01:44
Axel
Hallo zusammen,
ich möchte in einer Arbeitsmappe bei farbig markierten Zellen die Farbe wieder entfernen und auf den Defaultwert zurücksetzen und hatte gehofft, dies mit dem folgenden Codeschnipsel zu bewerkstelligen:
For Each wks In Worksheets
If Cells.Interior.ColorIndex [Größerzeichen] 0 Then
Cells.Interior.xlColorIndexNone
End If
Next
Das Größerzeichen konnte ich hier nicht darstellen, deshalb ausgeschrieben.
Leider passiert da gar nichts. Die Einfärbung resultiert auch aus einem Makro, wo Zellen mit Kommentaren farblich hinterlegt werden:
.Cells.SpecialCells _
(xlCellTypeComments).Interior.ColorIndex = 6
Es wird keine bedingte Formatierung angewandt.
Ich hatte zuerst versucht, Zellen mit Kommentaren zu identifizieren und diese zu entfärben:
With ws1
.Cells.SpecialCells _
(xlCellTypeComments).Interior.xlColorIndexNone
End With
Das hat aber nicht funktioniert.
Leider sind meine VBA-Kenntnisse noch deutlich ausbaufähig. Ich arbeite daran.
Hier bitte ich um fachkundige Unterstützung, wie ich das korrekt codieren muss, um eingefärbte Zellen wieder zu entfärben.
Vielen Dank vorab und beste Grüße
Axel
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: eingefärbte Zellen "entfärben"
16.04.2020 10:07:40
Hajo_Zi
Hallo Axcel,
prüfe ob das Makro zum Färben gestartet wird im neuewn Makro.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Das ist nur meine Meinung zu dem Thema.
Gruß Hajo
Anzeige
AW: VBA: eingefärbte Zellen "entfärben"
16.04.2020 10:10:16
hary
Moin
Du must die Codezeile anders aufbauen. 
With ws1
.Cells.SpecialCells(xlCellTypeComments).Interior.Color = xlNone
End With

gruss hary
AW: VBA: eingefärbte Zellen "entfärben"
16.04.2020 10:18:33
Daniel
Hi
Der ColorIndex für "keine Farbe" ist -4142 bzw als Systemkonstante xlNone.
Du musst diesen Wert genauso zuweisen wie jeden anderen Colorindex auch, es gibt keinen speziellen Rücksetzbefehl (mein Tip: statt Code zu "raten", benutze lieber den Makrorecorder):
Cells.Interior.ColorIndex = xlNone
Noch ein Fehler: wenn du den vorhandenen ColorIndex ermitteln willst, solltest du immer nur eine Zelle abfragen.
Fragst du ihn für einen größeren Zellbereiche ab und es liegen mehrere unterschiedliche Werte vor, ist das Ergebnis Unsinn.
Dh. wenn du die Farbe für alle Zellen zurücksetzen willst, lass die Abfrage einfach weg.
Willst du nur für bestimmte Zellen den ColorIndex zurücksetzen, dann brauchst du noch ne Schleife über die einzelnen Zellen des Blattes.
Gruß Daniel
Anzeige
AW: VBA: eingefärbte Zellen "entfärben"
16.04.2020 11:56:31
Axel
Hi Daniel,
danke für die Hinweise.
mit Cells.Interior.ColorIndex = xlNone
hat es auch nicht funktioniert.
Mit dem Makrorecorder kam folgendes raus:
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Und nu?
Danke und Gruß
Axel
Anzeige
AW: VBA: eingefärbte Zellen "entfärben"
16.04.2020 13:41:00
Daniel
komisch.
bei mir geht's so (Excel 2010)
Hast du auch das richtige Tabellenblatt referenziert?
Ansonsten solltest du das "funktioniert nicht" präziser beschreiben.
gruß Daniel
AW: VBA: eingefärbte Zellen "entfärben"
16.04.2020 11:48:45
Axel
Hallo zusammen,
danke für die Hinweise.
Hier ist eine Beispieldatei, wo das Makro schon ein mal ausgeführt wurde:
https://www.herber.de/bbs/user/136780.xlsm
Ich will nur sicherheitshalber vor Kommentierung und Neueinfärbung eine Schleife drehen, eventuelle Farben und Kommentare zu löschen.
Ich krieg aber mit der Ansprache der Kommentierten Zellen jeweils nur eins von beiden hin, entweder lösche ich die Kommentare oder die Farbe.
Die Lösung wäre mE, die Kommentare zu löschen wie es aktuell auch im Code steht und alle farbigen Zellen auf den Wert zu setzen, den Daniel geschrieben hat. Aber ich bin offen für eure Vorschläge.
Vielen Dank und beste Grüße
Axel
Anzeige
und warum machst Du es dann nicht ?
16.04.2020 11:56:53
Matthias 

Option Explicit
Sub weg_damit()
With Cells
.Interior.Color = xlNone
.ClearComments
End With
End Sub

AW: und warum machst Du es dann nicht ?
16.04.2020 12:27:26
Axel
Matthias,
funktioniert einwandfrei.
Hab es wohl so gemacht:
With ws1.Cells
.Interior.Color = xlNone
.ClearComments
End With
Jetzt sieht es ganz einfach aus, wo man weiß, wie es geht...
Danke an alle für die Unterstützung!
Gruß
Axel
Anzeige
;

Forumthreads zu verwandten Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Wert in farbiger Zelle addieren
thomas

Hallo,
ich möchte den Wert in farbigen Zellen addieren.
Z.B.
Zelle A1 :C1 Zellfarbe gelb, in jeder Zelle steht der Wert 1 ; Ergebnis soll 3 sein
oder
Zelle A2 = grün Wert =1, B2 = gelb Wert=2, C2 = gelb Wert =2; Ergebnis soll 4 sein
gibt es dafür eine Funktion oder is...
13.08.2008 12:56:00
Thread-ID: 1001497
4 Beiträge
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Anzeige
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA: Eingefärbte Zellen Entfernen und Auf Standard Zurücksetzen

Schritt-für-Schritt-Anleitung

Um eingefärbte Zellen in einer Excel-Arbeitsmappe mit VBA zu entfernen und die Farbe auf den Standardwert zurückzusetzen, kannst du den folgenden VBA-Code verwenden:

Option Explicit
Sub Entfaerben()
    Dim ws1 As Worksheet
    Set ws1 = ThisWorkbook.Sheets(1) ' Das erste Tabellenblatt auswählen

    With ws1.Cells
        .Interior.Color = xlNone ' Entferne die Hintergrundfarbe
        .ClearComments ' Lösche alle Kommentare in den Zellen
    End With
End Sub
  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
  2. Füge ein neues Modul hinzu: Rechtsklick auf „VBAProject (DeineArbeitsmappe)“ > „Einfügen“ > „Modul“.
  3. Kopiere den obigen Code in das Modul.
  4. Schließe den VBA-Editor und führe das Makro aus, indem du ALT + F8 drückst und „Entfaerben“ auswählst.

Häufige Fehler und Lösungen

  • Fehler: Es passiert nichts beim Ausführen des Codes.

    • Stelle sicher, dass du das richtige Arbeitsblatt referenziert hast. Der Code sollte auf das Arbeitsblatt angewendet werden, das die eingefärbten Zellen enthält.

  • Fehler: Der ColorIndex wird nicht zurückgesetzt.

    • Der ColorIndex für „keine Farbe“ ist xlNone oder -4142. Achte darauf, dass du diesen Wert korrekt verwendest.

Alternative Methoden

Falls du eine andere Methode bevorzugst, kannst du auch den Makrorekorder nutzen, um die Schritte aufzuzeichnen, die du in Excel durchführst. Dadurch erhältst du den entsprechenden VBA-Code:

  1. Klicke auf „Entwicklertools“ > „Makro aufzeichnen“.
  2. Führe die Schritte aus, um die Zellen zu entfärben oder Kommentare zu entfernen.
  3. Stoppe die Aufzeichnung und überprüfe den generierten Code im VBA-Editor.

Praktische Beispiele

Hier sind einige zusätzliche Beispiele, um eingefärbte Zellen zu entfernen:

Sub EntferneFarbeMitBedingung()
    Dim zelle As Range
    For Each zelle In ThisWorkbook.Sheets(1).UsedRange
        If zelle.Interior.ColorIndex <> xlNone Then
            zelle.Interior.ColorIndex = xlNone
        End If
    Next zelle
End Sub

In diesem Beispiel wird jede Zelle im verwendeten Bereich des ersten Tabellenblatts überprüft, und wenn eine Zelle eine Farbe hat, wird sie entfernt.

Tipps für Profis

  • Verwende Option Explicit: Dies hilft dir, Fehler zu vermeiden, indem es sicherstellt, dass alle Variablen deklariert sind.
  • Nutze SpecialCells: Wenn du nur Zellen mit Kommentaren oder speziellen Eigenschaften ansprechen möchtest, kann SpecialCells sehr nützlich sein.
  • Teste im VBA-Editor: Bevor du den Code in deiner Hauptarbeitsmappe ausführst, teste ihn in einer Kopie, um unerwünschte Änderungen zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich nur bestimmte Zellen entfärben? Du kannst eine Schleife verwenden, um nur die gewünschten Zellen anzusprechen, indem du spezifische Bereiche definierst.

2. Warum funktioniert der Code bei mir nicht? Überprüfe, ob das richtige Arbeitsblatt referenziert wird und ob die Zellen tatsächlich eingefärbt sind. Achte auch darauf, dass der Code keine Fehler enthält und dass du die richtigen Excel-Versionen verwendest (z.B. Excel 2010 oder neuer).

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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