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

Forumthread: Makro: Alle gelben Zellen löschen

Makro: Alle gelben Zellen löschen
09.07.2004 21:28:40
Max
Hallo,
ich möchte einer Schaltfläche ein Makro zuweisen, welches die Inhalte aller gelb gefärbten Zellen löscht. Die Farbe hat die Nummer 19 (hellgelb).
Mein Versuch alle Zellen einzeln anzugeben bringt Excel zu dem Fehlertext "Excel wird geschlossen" :-(((
Es wäre schön, wenn jemand eine Lösung wüßte.
Vielen Dank!
Max
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Makro: Alle gelben Zellen löschen
th.heinrich
hallo Max,
scheint mehrere gelbs zu geben.
'' Leeren aller Zelle mit gelbem Hintergrund

Sub ClearYellowCells()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange
If rng.Interior.ColorIndex = 6 Then
rng.ClearContents
End If
Next rng
End Sub

gruss thomas
Anzeige
AW: Makro: Alle gelben Zellen löschen
09.07.2004 22:24:37
Max
Hallo Thomas,
vielen Dank für die schnelle Hilfe! Super!
Ich wünsche dir noch ein schönes (möglichst regenfreies) Wochenende.
Gruß
Max
gern geschehen :-) auf das die sonne lacht ot.
th.heinrich
;
Anzeige
Anzeige

Infobox / Tutorial

Makro zum Löschen aller gelb markierten Zellen in Excel


Schritt-für-Schritt-Anleitung

Um alle gelb markierten Zellen in Excel zu löschen, kannst Du ein einfaches Makro verwenden. Folge diesen Schritten:

  1. Excel öffnen: Starte Excel und öffne die Arbeitsmappe, in der Du die gelb markierten Zellen löschen möchtest.
  2. Entwicklertools aktivieren: Falls der Tab „Entwicklertools“ nicht sichtbar ist, gehe zu Datei > Optionen > Menüband anpassen und aktiviere das Kontrollkästchen für „Entwicklertools“.
  3. Makro erstellen:
    • Klicke auf „Entwicklertools“ und dann auf „Visual Basic“.
    • Im VBA-Editor klickst Du auf Einfügen > Modul, um ein neues Modul zu erstellen.
  4. VBA-Code einfügen: Kopiere den folgenden Code und füge ihn in das Modul ein:
Sub ClearYellowCells()
    Dim rng As Range
    For Each rng In ActiveSheet.UsedRange
        If rng.Interior.ColorIndex = 6 Then
            rng.ClearContents
        End If
    Next rng
End Sub
  1. Makro speichern: Schließe den VBA-Editor und speichere Deine Arbeitsmappe als „Excel-Makro-fähige Arbeitsmappe (*.xlsm)“.
  2. Makro zuweisen: Erstelle eine Schaltfläche in Deinem Arbeitsblatt und weise das Makro „ClearYellowCells“ zu.

Jetzt kannst Du mit einem Klick auf die Schaltfläche alle gelb markierten Zellen in Deiner Excel-Tabelle löschen.


Häufige Fehler und Lösungen

  • Excel wird geschlossen: Dieser Fehler kann auftreten, wenn Du versuchst, Zellen einzeln zu adressieren. Stelle sicher, dass Du den obigen Code verwendest, um alle Zellen gleichzeitig zu überprüfen.
  • Falsche Farbe: Wenn die gelben Zellen nicht gelöscht werden, überprüfe die ColorIndex-Nummer. Der Code verwendet ColorIndex = 6 für gelb. Du kannst dies anpassen, falls Du eine andere Gelbtönung verwendest.

Alternative Methoden

Falls Du kein Makro verwenden möchtest, kannst Du auch die „Suchen und Ersetzen“-Funktion in Excel nutzen:

  1. Drücke Strg + F, um das Suchfenster zu öffnen.
  2. Klicke auf „Optionen“ und dann auf „Format“.
  3. Wähle „Füllung“ und wähle die gelbe Farbe aus.
  4. Lasse das Feld „Ersetzen durch“ leer und klicke auf „Alle ersetzen“.

Diese Methode entfernt jedoch nur den Farbton und nicht den Inhalt der Zellen.


Praktische Beispiele

Angenommen, Du hast eine Excel-Tabelle mit vielen Daten und einige Zeilen sind gelb markiert, um wichtige Informationen hervorzuheben. Mit dem oben genannten Makro kannst Du schnell alle gelb markierten Zeilen leeren, ohne sie manuell durchsuchen zu müssen.


Tipps für Profis

  • Anpassen des Codes: Du kannst den Code leicht anpassen, um andere Farben zu entfernen, indem Du die ColorIndex-Nummer änderst. Eine Liste der ColorIndex-Werte findest Du in der Excel-Dokumentation.
  • Makros automatisieren: Überlege, das Makro beim Öffnen der Datei automatisch auszuführen, um die gelb markierten Zellen immer auf dem neuesten Stand zu halten.

FAQ: Häufige Fragen

1. Kann ich das Makro auch in Excel Online verwenden?
Leider unterstützt Excel Online keine Makros. Du musst eine Desktop-Version von Excel verwenden.

2. Was mache ich, wenn ich versehentlich gelöschte Inhalte wiederherstellen möchte?
Du kannst die „Rückgängig“-Funktion (Strg + Z) verwenden, um die letzten Änderungen rückgängig zu machen, solange Du nicht die Datei geschlossen hast.

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