Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellfarbe umkehren

Zellfarbe umkehren
08.03.2005 14:30:14
Patrick
Hallo Leute,
habe folgendes Problem:
ich habe einen Tabelle, deren Zellen die Farben weiß und gelb (farbindex 36 oder so) haben. ich möchte nun, dass innerhalb eines bestimmten bereiches, den ich markeiere, die Farbe der Zelle umgekehrt wir.
wie könnte man das bewerkstelligen?
gruß und danke schonmal,
Patrick
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellfarbe umkehren
08.03.2005 14:45:47
Matthias
Hallo Patrick,
Sub FarbenUmkehren()
Dim z As Range, col As Long
Application.ScreenUpdating = False
For Each z In Range("A1:F15")
col = z.Interior.ColorIndex
If col = xlColorIndexNone Then
col = 36
ElseIf col = 36 Then
col = xlColorIndexNone
End If
z.Interior.ColorIndex = col
Next z
Application.ScreenUpdating = True
End Sub
Gruß Matthias
Anzeige
AW: Zellfarbe umkehren
08.03.2005 14:53:41
Patrick
Hi Matthias,
kannst du mir das auch noch so umbauen, dass diese umkehrung nur in einm bestimmten, vor der ausführung markierten bereich geschieht. habe leider selbst so gut wie keine peilung.
danke
AW: Zellfarbe umkehren
08.03.2005 14:59:42
Matthias
Hallo Patrick,
statt
For Each z In Range("A1:F15")
einfach
For Each z In Selection
schreiben.
Gruß Matthias
Anzeige
AW: Zellfarbe umkehren
08.03.2005 15:01:39
Patrick
Jo, geht... thx
wird zeit, dass ich das auch mal lerne, ist ja gar nicht so schwer.
;
Anzeige
Anzeige

Infobox / Tutorial

Zellfarbe umkehren in Excel


Schritt-für-Schritt-Anleitung

Um die Zellfarbe in Excel umzukehren, kannst Du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Menü auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden Code in das Modul:

    Sub FarbenUmkehren()
        Dim z As Range, col As Long
        Application.ScreenUpdating = False
        For Each z In Selection
            col = z.Interior.ColorIndex
            If col = xlColorIndexNone Then
                col = 36 ' Setzt die Farbe auf Gelb
            ElseIf col = 36 Then
                col = xlColorIndexNone ' Setzt die Farbe auf Weiß
            End If
            z.Interior.ColorIndex = col
        Next z
        Application.ScreenUpdating = True
    End Sub
  4. Schließe den VBA-Editor.

  5. Wähle den Bereich aus, in dem Du die Farben invertieren möchtest.

  6. Drücke ALT + F8, wähle FarbenUmkehren aus der Liste und klicke auf Ausführen.

Jetzt hast Du die Farben in dem ausgewählten Bereich umgekehrt!


Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass Du den richtigen Bereich ausgewählt hast, bevor Du das Makro ausführst.
  • Fehler: Die Farben ändern sich nicht wie erwartet.

    • Lösung: Überprüfe den Farbindex, den Du im Makro verwendest. Möglicherweise musst Du den Farbindex anpassen, wenn Du andere Farben verwendest.

Alternative Methoden

Wenn Du keine VBA-Makros verwenden möchtest, kannst Du auch die bedingte Formatierung nutzen, um invertierte Farben zu simulieren. Beachte jedoch, dass dies nicht die Zellfarben direkt ändert, sondern nur die Darstellung.

  1. Wähle den Bereich aus.
  2. Gehe zu Bed. Formatierung > Neue Regel.
  3. Wähle Formel zur Bestimmung der zu formatierenden Zellen verwenden.
  4. Verwende eine Formel wie =A1=36 für gelb und wähle die gewünschte Formatierung aus.

Praktische Beispiele

Angenommen, Du hast die Zellen A1 bis F15, die abwechselnd gelb und weiß sind. Wenn Du das Makro ausführst, werden alle gelben Zellen in weiß und alle weißen Zellen in gelb umgekehrt. Diese Methode ist besonders nützlich, wenn Du einen großen Bereich von Daten hast und die Farben schnell invertieren möchtest.


Tipps für Profis

  • Makro anpassen: Du kannst das Makro anpassen, um mehr Farben hinzuzufügen oder unterschiedliche Farbwechsel zu ermöglichen.
  • Schnellzugriff: Füge das Makro zur Symbolleiste für den Schnellzugriff hinzu, um es schneller auszuführen.

FAQ: Häufige Fragen

1. Frage: Kann ich das Makro auf eine bestimmte Farbe anpassen?
Antwort: Ja, Du kannst den Farbindex im Code ändern, um andere Farben zu invertieren.

2. Frage: Funktioniert dieses Makro in allen Excel-Versionen?
Antwort: Ja, das Makro sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen.

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