Grüezi Ales
habe das ganze gerade ausprobiert - funktioniert bestens!
Herzlichen Dank!
Das freut mich sehr - und Danke vielmals 
Zu Deiner Frage: die RGB-Werte werden genau in der Reihenfolge
zusammengestellt R/G/B. Nur war die gesamte Tabelle noch nicht
ganz fertig überarbeitet, d. h. nur die ersten acht Tabellen
waren auf aktuellem Stand.
Gut, das hatte ich mir schon fast so gedacht.
Aber was mich vorher eine halbe
Stunde gekostet hat, geht jetzt in wenigen Sekunden.
Na das ist ja der Sinn der Sache; hier noch ein weiterer Schritt in diese Richtung. Kopiere folgende Zeilen ins Codemodul des Tabellenblattes auf dem Du die HEX-Werte einträgst (Rechtsklick auf den Reiter und ‚Code anzeigen‘ auswählen):
Private Sub Worksheet\_Change(ByVal Target As Range)
Dim rngZelle As Range
Dim varRGB As Variant
For Each rngZelle In Target
With rngZelle
If Left(.Text, 1) = "#" Then
.Offset(0, 1).FormulaR1C1 = \_
"=CONCATENATE(HEXINDEZ(MID(RC[-1],2,2)),""/"",HEXINDEZ(MID(RC[-1],4,2)),""/"",HEXINDEZ(MID(RC[-1],6,2)))"
varRGB = Split(.Offset(0, 1).Value, "/")
.Offset(0, 1).Resize(1, 2).Interior.Color = RGB(CDbl(varRGB(0)), CDbl(varRGB(1)), CDbl(varRGB(2)))
End If
End With
Next rngZelle
End Sub
Damit wird dir nun in jeder Zelle in die Du einen Hex-Wert (beginnend mit ‚#‘) einträgst in die Nebenspalte die Formel eingetragen und die beiden Zellen gleich richtig eingefärbt.
Damit entfällt dann auch das Eintragen der Formel und der manuelle Schritt mit dem Markieren und Makro starten.
Werde mich mal etwas näher mit VB und den Möglichkeiten
befassen, aber dafür fehlt mir im Augenblick etwas die Zeit,
um es mal vorsichtig zu formulieren.
Frage hier einfach wieder nach und gib so gute und konkrete Angaben wie bisher, dann klappt das auch in Zukunft
Mein nächster Schritt ist eher dahingehend, das ich die
HEX-Code-Generierung automatisieren möchte, damit ich nicht
immer alles manuell übertragen muss und diese Tabellen dann
von alleine entstehen.
Die Grundagen dazu hab ich schon gesammelt, der Rest ist dann
noch etwas Fleißarbeit.
Da könnte man vermutlich mit VBA auch noch was ‚türken‘ - sobald der Algorithmus klar ist, lässt sich da einiges berechnen und automatisieren.
Wie du sicher bemerkt hast, wird die Ausgangsfarbe soweit
möglich in die Mitte der Tabelle gesetzt und dann der Gradient
nach oben gegen weiss und unten gegen schwarz berechnet, das
ganze über 30-32 Werte.
Es gibt dann im Web auch noch ein paar Tools, die dann noch
gleich passende Farben dazu „vorschlagen“ - so was in der Art
stelle ich mir als Ziel dann auf Excel-Basis vor.
Das wären dann Schritt 3 und 4 - macht Spass
–
Mit freundlichen Grüssen
Thomas Ramel
