Zelle einfärben wenn

Computer: Software & Programmierung Office Software
1

Hallo Community…

Meine Aufgabe ist es einen Urlaubsplan zu erstellen. Gibt der Nutzer den Buchstaben „k“ oder „K“ in eine Zelle ein, so soll Excel die Schriftfarbe und die Füllung auf grün wechseln. Wird der Buchstabe wieder aus der Zelle entfernt, so soll auch die Formatierung wieder gelöscht werden.

Vielen Dank für eure Antworten

MfG - schmoll-

2

Meine Aufgabe ist es einen Urlaubsplan zu erstellen. Gibt der
Nutzer den Buchstaben „k“ oder „K“ in eine Zelle ein, so soll
Excel die Schriftfarbe und die Füllung auf grün wechseln. Wird
der Buchstabe wieder aus der Zelle entfernt, so soll auch die
Formatierung wieder gelöscht werden.

Hi schmoll,
bed. Formatierung, Formel ist:
=ODER(A1=„k“;A1=„K“)
Gruß
Reinhard

3

also bei so simplen Bedingungen sollte man denke ich eher mit „Zellwert entspricht“ … „oder“

arbeiten.
Zumal diese Formel verleitet in Zelle Y73 auf den Inhalt von Zelle A1 zu verweisen…

4

Sorry! Ich habe vergessen zu schreiben, dass bereits 2 Bedingungen der bedingten Formatierung belegt sind. Es bleibt mir also nur die Möglichkeit die Problemstellung über ein Makro zu lösen. Ich habe mich auch bereits mit mäßigem Erfolg daran probiert:

Public Sub Worksheet\_Change(ByVal Target As Range)

If Target.Cells = "k" Or Target.Cells = "K" Then

 Target.Cells.Interior.ColorIndex = 40
 Target.Cells.Font.ColorIndex = 40

 Else
 If Target.Cells = "u" Or Target.Cells = "U" Then

 Target.Cells.Interior.ColorIndex = 37
 Target.Cells.Font.ColorIndex = 37

 Else
 If Target.Cells = "f" Or Target.Cells = "F" Then

 Target.Cells.Interior.ColorIndex = 50
 Target.Cells.Font.ColorIndex = 50

 Else

 End If
 End If
End If

End Sub

Leider bin ich in VBA nicht sehr qualifiziert. Ich hoffe ihr könnt mir hier weiterhelfen.

Vielen Dank

MfG - schmoll -