Zahlen Daten Farben

[Nico]

Hallo zusammen mit einem vorweihnachtlichen Gruß

Ich hoffe mir kann jemand helfen, weil ich ganz dringend auf den Weihnachtsmarkt möchte und hier nicht weg kann, wenn ich dieses Problem nicht löse.

An sich einfach erklärt:

Es gibt eine Tabelle in Excel die beispielhaft in Ampelfarben angefertigt wurde, um MItarbeiterfachkenntnisse darzustellen.

Beipiel

Vorname / Nachname / Excel / Access / Word
Peter / Mustermann / grün / gelb / rot

Grün = gute Fachkenntnisse
gelb = mittlere Fachkenntnisse
Rot = mangelnde Fachkenntnisse

Ich kann mit der Tabelle so jetzt wenig anfangen, was die Weiterverarbeitung angeht. Sprich ich hätte gerne, dass alles was grün ist eine 1 hat, alles was gelb ist eine 2 und alles was rot ist eine 3

Geht sowas ? Also sprich Excel müsste eine Farbe erkennen und diese durch eine Zahl ersetzen oder zumindest eine Zahl einsetzen, wenn ein Feld eine bestimmte Farbe hat.

Bitte um Hilfe

[steve1da]

Hola,

Farbe auslesen ist umständlich. 
http://www.office-loesung.de/ftopic55399_0_0_asc.php

Normalerweise geht man umgekehrt vor, indem man eine 1, 2 oder 3 in die Zelle einträgt und per bedingter Formatierung wird dann automatisch die Farbe gesetzt.
Gruß,
steve1da

[Nico]

ja hätte ich auch umgekehrt gemacht, aber mir wurde das sozusagen aufs Auge gedrückt. Ist nicht meine Vorlage

den Thread habe ich gelesen, aber der übersteigt mein Wissen.

kann man das irgendwie einfacher darstellen oder keine Chance ?

[Igelbauer]

Hi
Spar dir den Weihnachtsmarkt.
Zuviel Glühwein und du bist morgen in Excel noch schlechter.
(siehe "An Tagen wie diesen) mein Thread von heute morgen.

Naja, Spass beiseite, zu deinem Problem.
Umgekehrt wäre es natürlich deutlich einfacher.
Ohne die Datei, oder zumindest ein greifbares Beispiel ist es schwierig dir vernünftig zu helfen.
Ich weiss ja noch nicht einmal deine Excel-Version.

Wenn du Glück hast ist dein Excel noch nicht allzu alt, dann kannst du nach Farben filtern.
Wäre die schnelle provisorische Lösung.
Filtern>Zahlen rein>ab zum Markt.

Für ein Makro, das deine Sache automatisch erledigt, braucht man unbedingt die Datei.
Allein schon weil keiner hier weiss welches rot, gelb, grün enthalten ist.

 Gruss Igel

[Nico]

Hi das wäre eine solche Datei.

Excel Version ist von 2016

[Phi.VBA]

@Nico

passe den Bereich an und teste mit

Code:

Sub sPhi()
Dim rng As Range, c As Range
Set rng = Range("B2:D7") '<<<<<<<<<< anpassen
For Each c In rng
   Select Case c.Interior.Color
       Case Is = 65535
           c.Value = "mittel"
       Case Is = 5287936
           c.Value = "gut"
       Case Is = 255
           c.Value = "mangelde"
   End Select
Next c
End Sub

[Nico]

hm klappt irgendwie nicht

End sub erwartet aber mit end sub geht es auch nicht

[Phi.VBA]

@Nico

nimm den ganzen Code bis "end sub".

[Nico]

alter schwede sorry weihnachtsmarkt wille macht birne leer sorry

[Nico]

Nice dickes THX Weihnachtsmarkt ich komme

DANKE !!!!