HERBERS Excel-Forum - die Beispiele

Thema: Festlegung von Farkombinationen durch ScrollBars

Home

Gruppe

Allgemein

Problem

Die Farben von Shapes sollen durch ScrollBars festgelegt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle3

Private Sub scrRed_Change()
   With Range("C5:D5")
      .Interior.Color = RGB(scrRed.Value, 0, 0)
      .Font.Color = 16581375 - ( _
         scrRed.Value * scrGreen.Value * scrBlue.Value)
   End With
   Call SetCellColor
End Sub

Private Sub scrGreen_Change()
   Range("C7:D7").Interior.Color = _
      RGB(0, scrGreen.Value, 0)
   Call SetCellColor
End Sub

Private Sub scrBlue_Change()
   Range("C9:D9").Interior.Color = _
      RGB(0, 0, scrBlue.Value)
   Call SetCellColor
End Sub

Private Sub SetCellColor()
   Range("C4").Interior.Color = _
      RGB(scrRed.Value, scrGreen.Value, scrBlue.Value)
   Shapes(1).Fill.ForeColor.RGB = RGB( _
      scrRed.Value, scrGreen.Value, scrBlue.Value)
   DoEvents
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Farbe

Hintergrundfarbe in Tabellen mit VBA Farbe von CB´s steuern
Zelle färben wenn Wert in Liste vorkommt Zellfarbe per Cond Formatting nach Zellfarbe änder
Abfrage färben Zellen einfärben trotz Passwortschutz
Zellen einfärben wenn Bedingung erfüllt Hintergrundfarbe von Zeilen
Farben aus einer Arbeitsmappe übernehmen Zeilen löschen in denen Text mit best. Farbe steht
Zählenwenn Blattregisterfarbe rot Fortsetzung Linienfarbe ändern Diagramm
Zeile löschen in Abhängigkeit von Zellfarbe Formel in Werte umwandeln (nur der Füllfarbe 16)?
Excel Farbe Excel Farben
mit textbox wert suchen zeile in farbe Zellfarbe wechseln und quittieren
Farbe verändern Füllfarben in Text ausgeben
Zwei Bedingungen (nächste Zelle leer und Farbe) Farbe aus Zelle = Wert
Gitternetzlinien und Hintergrundfarbe horizontale Achse andere Farbe oder dicker
Zellfarbe aufgrund Formelergebnis ändern Zellenfarbe
Balkenfarbe in Diagramm per VBA ändern Allgemeine Frage zur Fehlerbehandlung
allgemeine Fragen zu einer Datenbank Farbe von Farbwert (Zahl) ermitteln
Farbe von Farbwert (Zahl) ermitteln Dynamische Farben in Diagramm
auf Hintergrundfarbe zugreifen Suche in Tabelle Zahl und übertrage deren Farbe
HTML Farben darstellen Textstyle ändern bei bestimmter Hintergrundfarbe
Kurvenbereiche unterschiedliche Farben Kommentar mit Zellenhintergrundfarbe
Farben zählen bis zum bestimmten Datum Hintergrundfarbe bestimmen
Farben zählen abhängig vom Datum registerfarbe nach wert
Einzelne Farbe im Chat ändern wenn... Tabellen Farbe
Farben in RGB umrechnen Farben aus einer anderen Mappe übernehmen
Farbe bei Klick in Zelle Farben zuordnen
Farbe der aktiven Zelle nicht zurück gesetzt Zeilen kopieren, wenn in der Zeile Füllfarbe 22.?