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

Forumthread: Blattregister Farbe aus Zelle zuweisen

Blattregister Farbe aus Zelle zuweisen
08.07.2007 10:09:24
Jörk
Hallo Zusammen,
auch nach intensiver Suche im Archiv habe ich keine Lösung gefunden, daher meine Frage:
Wie kann ich dem aktiven Tabellenblatt im Blattregister die Farbe einer Zelle (die wiederum durch eine bedingte Formatierung gesteuert wird) dieses Blattes zuweisen.
Zum Hintergrund:
Projekt
verschiedene Teilprojekte oder Streams
Status dieser Teilprojekte ist über Ampelfarben gesteuert (Risiko, Budget, ...)
Und die Farbe des Tabellenblattes im Blattregister soll immer direkt der Ampelfarbe entsprechen.
Vielen Dank im voraus,
J.

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattregister Farbe aus Zelle zuweisen
08.07.2007 10:14:00
Hajo_Zi
Hallo Jörk,
bei Deinem VBA Stand Nein. Die Farbe der bedingten Formatierung auslesen ist das komplizierteste was mir bekannt.
http://hajo-excel.de/chCounter3/getfile.php?id=153

Anzeige
AW: Blattregister Farbe aus Zelle zuweisen
08.07.2007 10:18:11
Jens
Hallo Jörk
Mit:
Sheets("Tabelle1").Tab.ColorIndex = Range("A1").Interior.ColorIndex
kannst Du die Registerfarbe der Farbe der Zelle A1 angleichen.
Wenn die Farbe über eine bedingte Formatierung zustande kommt, müsstest Du m.W. die Bedingung auch als Bedingung für die Registerkarte benutzen.
Hoffe etwas geholfen zu haben.
Gruß aus dem Sauerland
Jens

Anzeige
AW: Blattregister Farbe aus Zelle zuweisen
08.07.2007 10:49:00
Dan
Hi Joerg, versuch es z.B. so:
Sheets("Tabelle1").Tab.ColorIndex = Range("A1").FormatConditions(1).Interior.ColorIndex
Dies wird den Farb-Index von der ersten 'Format-condition' aus der Zelle 'a1' nehmen und dem Far-Index der Tab von der Tabelle1 zuweisen. Funzt dies? Gruss Dan, cz.

Anzeige
AW: Blattregister Farbe aus Zelle zuweisen
08.07.2007 11:16:00
Jörk
Allen schon mal ein herzliches Dankeschön!
Ich denke ich muss tatsächlich noch ein bisschen fummeln.
Hajo_Zi:
Hinsichtlich meines VBA Levels war ich recht defensiv. Eine benutzerdefinierte Formel mit Fallunterscheidung bekomme ich noch irgendwie hin. Aber wenn das Auslesen der Farbe einer bedingten Formatierung so schwierig ist, ist es für mich definitiv 3-5 Level zu schwer.
Den Code in Deinem Beispiel habe ich mir aber mit Interesse angeschaut und werde noche in bisschen damit rumspielen.
Jens:
Vielen Dank für den Hinweis die Bedingungen der Formatierung auszulesen, ich werde mal versuchen was ich hinstümpern kann.
Dan:
Es sind 3 Bedingungen für die Zelle definiert, ich werde also wie o.a. versuchen die Bedingungen der Zelle für das Blattregister auszulesen.
Viele Grüsse und noch einen schönen Sonntag,
J.

Anzeige
AW: Blattregister Farbe aus Zelle zuweisen
08.07.2007 11:52:50
Jens
Hallo Jörk
Vielleicht so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Range("A1").Value
Case Is = 1
Range("A1").Interior.ColorIndex = 3
Sheets("Tabelle1").Tab.ColorIndex = 3
Case Is = 2
Range("A1").Interior.ColorIndex = 5
Sheets("Tabelle1").Tab.ColorIndex = 5
Case Is = 3
Range("A1").Interior.ColorIndex = 7
Sheets("Tabelle1").Tab.ColorIndex = 7
Case Else:
Range("A1").Interior.ColorIndex = xlNone
Sheets("Tabelle1").Tab.ColorIndex = xlNone
End Select
End Sub


Vielleicht kannst Du ja damit was anfangen...?
Gruß aus dem Sauerland
Jens

Anzeige
AW: Blattregister Farbe aus Zelle zuweisen
08.07.2007 17:43:00
Jörk
Hi Jens,
kam erst jetzt dazu Deinen Code auszuprobieren: Heureka! Genau das funktioniert. Ganz vielen Dank für die Hilfe und schönen Gruss aus Rheinhessen ins Sauerland,
J.

Danke für Rückmeldung.... o.T.
08.07.2007 22:14:52
Jens
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Blattregister Farbe aus Zelle zuweisen


Schritt-für-Schritt-Anleitung

Um die Farbe eines Blattregisters in Excel automatisch der Farbe einer Zelle zuzuweisen, die durch eine bedingte Formatierung gesteuert wird, kannst du den folgenden VBA-Code verwenden. Dieser Code wird in das Modul des Arbeitsblatts eingefügt:

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

  2. Wähle das entsprechende Arbeitsblatt aus, in dem du die Farbe ändern möchtest.

  3. Füge den folgenden Code in das Arbeitsblatt-Modul ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       Select Case Range("A1").Value
           Case Is = 1
               Range("A1").Interior.ColorIndex = 3
               Sheets("Tabelle1").Tab.ColorIndex = 3
           Case Is = 2
               Range("A1").Interior.ColorIndex = 5
               Sheets("Tabelle1").Tab.ColorIndex = 5
           Case Is = 3
               Range("A1").Interior.ColorIndex = 7
               Sheets("Tabelle1").Tab.ColorIndex = 7
           Case Else
               Range("A1").Interior.ColorIndex = xlNone
               Sheets("Tabelle1").Tab.ColorIndex = xlNone
       End Select
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Ändere den Wert in Zelle A1 und beobachte, wie sich die Farbe des Blattregisters automatisch ändert.


Häufige Fehler und Lösungen

  • Fehler: Das Blattregister ändert sich nicht.

    • Lösung: Stelle sicher, dass der Code im richtigen Arbeitsblatt-Modul eingefügt wurde und dass die bedingte Formatierung korrekt eingestellt ist.
  • Fehler: VBA gibt eine Fehlermeldung aus.

    • Lösung: Überprüfe, ob alle verwendeten Zellen und Blätter korrekt benannt sind und existieren.

Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du die Farbe manuell ändern, indem du die Zelle einfärbst:

  1. Wähle die Zelle aus, die du einfärben möchtest.
  2. Verwende den Excel-Shortcut ALT + H + H, um die Füllfarbe auszuwählen.
  3. Um die Farbe des Blattregisters manuell zu ändern, klicke mit der rechten Maustaste auf das Blattregister und wähle "Farbe".

Praktische Beispiele

Hier sind einige Beispiele, wie du die Registerfarbe in Abhängigkeit von bestimmten Werten in einer Zelle ändern kannst:

  1. Wenn der Wert in Zelle A1 "Rot" ist, setze die Registerfarbe auf Rot.
  2. Wenn der Wert in Zelle A1 "Grün" ist, setze die Registerfarbe auf Grün.

Du kannst die Bedingungen im VBA-Code anpassen, um verschiedene Farben basierend auf den Werten zu verwenden.


Tipps für Profis

  • Verwende den Excel-Shortcut CTRL + 1, um das Formatierungsmenü schnell zu öffnen und die Füllfarbe anzupassen.
  • Kombiniere die bedingte Formatierung mit benutzerdefinierten Formeln, um komplexere Bedingungen zu erstellen.
  • Halte deine VBA-Module organisiert und kommentiere deinen Code, um ihn leichter verständlich zu machen.

FAQ: Häufige Fragen

1. Wie kann ich die Registerfarbe automatisch ändern, wenn sich die Zellenfarbe ändert?
Du musst einen VBA-Code verwenden, der auf Ereignisse reagiert, wie z.B. Worksheet_Change.

2. Funktioniert das auch in älteren Excel-Versionen?
Ja, der VBA-Code sollte auch in Excel 2010 und späteren Versionen funktionieren. Achte jedoch darauf, dass die VBA-Funktionen in deiner Excel-Installation aktiviert sind.

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