Supportnet / Forum / Tabellenkalkulation

Wie kann ich für einen Dienstplan die Zellfarbe abhängig vom Wert (F S K1 K2 N Kr U) ändern. Mit Format + bedingter Formatierung sind ja nur 3 Werte möglich. Glaub ich jedenfalls :-) Gruss s

Hallo esskat,

dazu gab es hier im SN schon mehrere Anfragen. Im Excel-Bereich mal suchen oder googeln mit den Suchworten "bedingtes format mehr als 3".

Dann müßten auch mindestens 2 Treffer auf herber und auch auf das Sn sein, wo die genaue Lösung steht.

CU
want2cu

Moin esskat,

ich weiß zwar jetzt nicht, ob Du auf want2cu Ratschlag hin schon fündig geworden bist, daher schreibe ich jetzt hier mal ein Makro hin, dass die von Dir geforderten Bedingungen erfüllt.

Füge die Anweisung durch gleichzeitiges Drücken von Alt und F11 in der VBA Umgebung in Dein Tabellenblatt ein.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  Select Case Target.Value
    Case "F" 'bei Eingabe des Buchstaben F wird die Zellfarbe geändert
      Target.Interior.ColorIndex = 3 'Farbe, die die Zelle nach Eingabe des Buchstaben F annehmen soll
    Case "S"
      Target.Interior.ColorIndex = 4
    Case "K1"
      Target.Interior.ColorIndex = 5
    Case "K2"
      Target.Interior.ColorIndex = 6
    Case "N"
      Target.Interior.ColorIndex = 7
    Case "Kr"
      Target.Interior.ColorIndex = 8
    Case "U"
      Target.Interior.ColorIndex = 9
    Case Else
      Target.Interior.ColorIndex = xlColorIndexAutomatic
  End Select
End Sub

Das Makro ändert nach Eingabe eines der von Dir vorgegebenen Buchstaben die Zellenfarbe. Sollen weitere Bedingungen hinzugefügt werden, so muss einfach nur die Anweisung

Case ""
Target.Interior.ColorIndex = 9

kopiert und hinter der letzten Case Anweisung eingefügt werden und zwischen die beiden Anführungsstriche ("") der oder die Buchstaben geschrieben werden auf die die Anweisung reagieren soll. Soll nicht die Zellenfarbe sich ändern, sondern nur die Schriftfarbe, so muss in der Anweisung

Target.Interior.ColorIndex

das Wort Interior gegen das Wort Font getauscht werden.

Ich hoffe, ich konnte Dir weiterhelfen. Solltest Du Problem mit dem Makro haben, so melde Dich noch mal. Bei Bedarf kann ich Dir auch eine Beispieldatei zu kommen lassen.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein} ^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

hi corus :)

nicht schlecht der specht :)

schoen kurz,meines waere schon wieder laenger gewesen.

schon mal kopiert :)

gruss nighty

Hallo Coros,

vielen Dank für die tolle Lösung und vor allen Dingen für die Beispieldatei.

Alles gute, nen guten Rutsch und ein gesundes und glückliches 2004 wünscht

want2cu ;-)

• Zellfarben in Formeln ändern
• Excel vbs: Zellfarbe automatisch ändern bei Uhrzeit
• Zellfarbe aus Arbeitsmappe in Excelobjekt innerhalb Powerpoint auslesen