Zellhintergrund färben und bedingte Formatierung
09.04.2014 18:53:46
ing.grohn
in einer recht komplexen Tabelle möchte ich per VBA den Zellehintergrund rot färben:
If UCase(Urlaub(K)) = "K" _
Or UCase(Urlaub(K)) = "U" _
Or UCase(Urlaub(K)) = "A" Then
.Cells(I + N, Spalte).Value = Urlaub(K)
.Cells(I + N + 1, Spalte).Value = Beginn(K)
If UCase(Urlaub(K)) = "A" Then
.Cells(I + N, Spalte).Value = "A"
.Cells(I + N, Spalte).Interior.ColorIndex = 3
End If
End If
leider gelingt es nicht!! Ich habe die Zelle abgeprüft indem ich statt des vorgegebenen "kleinen" a ein A hineinschreibe (siehe Bildschim-Bild)
. Also bin ich an der richtigen Stelle. Aber die Farbe erscheint nicht (.Cells(I + N, Spalte).Interior.ColorIndex = 3).
Warum nicht?
Liegt das eventuell an der bedingten Formatierung?
Spreche ich die Zelle händisch an oder die Zelle per VBA (Cells(63,6).Interior.ColorIndex = 3) klappt es?
Eine Antwort würde mich freuen und dafür vielen Dank.
Mit freundlichen Grüßen
Albrecht
(hoffentlich muß ich nicht die Datei einstellen wg anonymisieren!!)