Formatierung von Zelle in Abhängigkeit eines Wertes

[Chelipe]

Hallo zusammen,

ich habe jetzt lange herumprobiert und viel gelesen; leider habe ich bisher keine richtige Lösung gefunden.

Ich habe eine Excel-Datei mit allen RAL-Farbtönen; diese habe ich bereits angelegt und es gibt jeweils eine Zelle für jeden Farbton mit der korrekten Hintergrundfarbe (RGB-Wert). Davor steht der RAL-Ton in einer Zelle (als Zahlenwert, das RAL steht nur aus optischen Gründen über Format dort).

Jetzt möchte ich in Zelle A1 eines anderen Arbeitsblatts einen Wert eingeben (bspw. für RAL 1000 die "1000"), so dass sich Zelle B1 in der Farbe von RAL 1000 färbt. Genauso sollen dahinter die Farbbezeichnungen erscheinen (also z.B. "Grünbeige" etc.)

Gibt es hierfür eine einfache Lösung?

Danke im Voraus!

P.S.: Im Anhang ein Screenshot zur Verdeutlichung!

[WillWissen]

Hi,

mit normalen Bordmitteln kannst du mittels Formeln keine Farbe auf andere Zellen übertragen. Das wäre die von dir favorisierte "einfache Lösung". Wenn überhaupt, so ist das nur per Makro möglcih. Da aber müssen dir die VBA-Spezies helfen.

[schauan]

Hallöchen,

bei Deiner Excelversion könntest Du per bedingter Formatierung 64 Farben erreichen. Falls das reicht, ist gut, falls nicht, kannst Du Dich nochmal melden und wir bauen was aus VBA
Der Farbname daneben wäre sicher einfach per SVERWEIS lösbar.

[Rabe]

Hi,

Falls das reicht, ist gut, falls nicht, kannst Du Dich nochmal melden und wir bauen was aus VBA
Der Farbname daneben wäre sicher einfach per SVERWEIS lösbar.

für eine VBA-Lösung wäre es sicher gut, wenn wir die komplette Datei hätten.
Die farbigen Texte sind anklickbare Links:

Hier steht, wie es geht:
Beitrag 2 WICHTIG: Arbeitsmappen zur Verfügung stellen

[Chelipe]

Hi,


für eine VBA-Lösung wäre es sicher gut, wenn wir die komplette Datei hätten.
Die farbigen Texte sind anklickbare Links:

Hier steht, wie es geht:
Beitrag 2 WICHTIG: Arbeitsmappen zur Verfügung stellen

Hallo zusammen,

erstmal danke für die schnelle Antwort! Ich bin begeistert!

64 Farben werden nicht reichen, da es sich um ca. 200 verschiedene Farbtöne handelt.

Im  Anhang findet sich die Datei; 

Zur Erklärung:
In Arbeitsblatt "RAL Farben" stehen die möglichen RAL-Töne inkl. Bezeichnungen auf 5 Sprachen. In Spalte E ist der Farbton als Hintergrundfarbe eingestellt.

Nun soll im Arbeitsblatt "Vorschriften" der jeweilige Farbton angegeben werden. In die orangen Felder soll der Wert (z.B 7011) eingetragen werden, so dass in Spalte D der Name  auftaucht (in unserem Fall "Eisengrau"). In Spalte F soll das Feld nur die Hintergrundfarbe bekommen, die für RAL 7011 im Arbeitsblatt "RAL Farben" vorgesehen ist.

Ich hoffe, dass das verständlich erklärt ist :) Neben den RAL-Farbtönen gibt es noch die Möglichkeit für "verzinkt". Das dürfte aber normal kein Problem darstellen.


Werde wahrscheinlich dann noch auf ein weiteres Problem stoßen in Zukunft (s. verschiedene Sprachen). Aber da würde ich mich dann noch gesondert zu melden.

Danke schon im Voraus!

Philipp

[Kl@us-M.]

Hi Philipp,

den Namen der Farbe kannst Du mit =SVERWEIS() bestimmen:

Arbeitsblatt mit dem Namen 'Vorschriften'
	B	C	D	E	F	G	H	I	J
10	RAL 5026		Perlnachtblau				16	44	84

Zelle	Formel
D10	=SVERWEIS(B10;RAL_Farben!$A$2:$J$215;6;0)
H10	=SVERWEIS(B10;RAL_Farben!A2:D215;2;0)
I10	=SVERWEIS(B10;RAL_Farben!A2:D215;3;0)
J10	=SVERWEIS(B10;RAL_Farben!A2:D215;4;0)

In den Hilfsspalten H, I und J habe ich die RGB-Werte ebenfalls mit SVERWEIS() ausgelesen, die ich über das Worksheet-Change-Ereignis für folgenden Code hinter der Tabelle "Vorschriften" verwende:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Range("F10").Interior.Color = RGB(Range("H10"), Range("i10"), Range("J10"))
End Sub

[Kuwer]

Hallo Phillipp,

folgender Code kommt in das schon vorhandene VBA-Modul der Tabelle "Vorschriften":

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim lngZ As Long
 With Target.Cells(1)
   If .Column = 2 Then
     On Error Resume Next
     Application.EnableEvents = False
     If Len(.Value) Then
       lngZ = Application.Match(.Value, Worksheets("RAL_Farben").Range("A1:A215"), 0)
       If lngZ = 0 Then
         .Value = ""
         Cells(.Row, 4) = ""
         Cells(.Row, 6).Interior.Color = xlNone
       Else
         Cells(.Row, 4).Value = Worksheets("RAL_Farben").Cells(lngZ, 6).Value
         Cells(.Row, 6).Interior.Color = Worksheets("RAL_Farben").Cells(lngZ, 5).Interior.Color
       End If
     Else
       Cells(.Row, 4) = ""
       Cells(.Row, 6).Interior.Color = xlNone
     End If
     Application.EnableEvents = True
     On Error GoTo 0
   End If
 End With
End Sub

Gruß Uwe

[Kl@us-M.]

Moin Uwe,

bist Du sicher, dass Dein Code hinter "RAL-Farben" gehört ???

[Kuwer]

Hi Klaus,

danke fürs Aufpassen.
Hab es in meinem vorigen Beitrag berichtigt.

Gruß Uwe

[Chelipe]

Hallo zusammen,

ihr seid echt wahnsinnig schnell!
Da ich von VBA bisher wirklich sehr wenig (bis keine) Ahnung habe, ist es nun so, dass Klaus' Version funktioniert ::)
Bei verzinkt hätte ich eigentlich noch gerne, dass er einen Verlauf oder ähnliches in das Farbfeld macht; aber ein grauton reicht für den Moment auch.

Wie ihr seht, gibt es ja noch verschiedene Sprachen (derzeit 5).

Habe mal in der angehängten Datei die Sache ein wenig aktualisiert (für 3 Sprachen).

Es sollte die Möglichkeit geben, zu wählen, ob 1 oder 2 Sprachen angezeigt werden; im nächsten Schritt dann natürlich welche (beides vermutlich am einfachsten per Dropdown-Menü).
Im Unteren bereich, also ab Zeile 10 sollte dann entsprechend die richtigen Zeilen ein- bzw. ausgeblendet werden. 

Könnt ihr da bitte auch noch mal behilflich sein?

Danke :)

P.S.: Habe nun gerade gemerkt, dass die Version von Uwe fast schöner ist. Gibt für diese nun ein Arbeitsblatt "Vorschriften VBA"