Hintergrundfarbe ändern ohne bedingte Formatierung

Question

Hallo Zusammen,

ich stehe vor folgendem Problem:
Eine bestimmte Zelle (F5) soll eine bestimmte Hintergrundfarbe annehmen wenn eine Bedingung erfüllt ist.
Z.B. soll die Zelle einen gelben Hintergrund bekommen, wenn der Zellinhalt in F6 = '0737100' oder '0738101' oder '0735101' oder '0739101' ist.

Die Zelle F5 soll einen blauen Hintergrund bekommen, wenn F6 = '0738102' oder '0735103' oder '0739102' oder '0737102' ist.

Das ganze Spiel benötige ich für 10 unterschiedlichen Farben, wobei die Information immer in Zelle F6 steht und immer F5 den Hintergrund ändern soll.

Habe leider bisher keinen Treffer im www. finden können.

Hoffe mal, dass Ihr mir helfen könnt. Besten Dank im Voraus!!

Answer 1

benutze das Change Ereignis der Tabelle.

Gruß hajo

Answer 2

und hier der Code.

Option Explicit
Private Sub Worksheet_change(ByVal Target As Range)
If Target.Address = "$F$6" Then
Select Case Target
Case "0737100"
Range("F6").Interior.Color = 255
Case "0738101"
Range("F6").Interior.Color = 65280
Case "0735101"
Range("F6").Interior.Color = 6684774
End Select
End If
End Sub

Gruß Hajo

Answer 3

Hallo Hajo,

das klappt sehr gut, wenn der Inhalt F6 als Text eingegeben wird.
Da in F6 aber eine Abfrage zu einem anderen Tabellenblatt steht
( =WENN(Tabelle2!B5<>"";Tabelle2!B5;""), die das Ergebnis z.B. '0737100' ausgibt, funktioniert es nicht mehr.

Es wäre kein Problem, über einen Umweg (Ergebnis aus F6 als Text in A12) ans Ziel zu kommen.

Bin auf die Lösung sehr gespannt!
Vielen Dank schon mal!

Answer 4

man sollte seine Aufgabe schon komplett beschreiben. Ändere F6 in $B$5

Gruß Hajo