If then...
19.02.2009 14:33:00
Matthias
um es kurz zu machen:
Ich habe eigentlich eine Select-case-Anweisung
For Each rngZelle In ActiveSheet.Range(Cells(A, B), Cells(C, D))
Select Case rngZelle
Case "A'"
rngZelle.Interior.Color = RGB(51, 51, 51)
rngZelle.BorderAround Color:=RGB(230, 49, 16), Weight:=xlThick
Case Else
rngZelle.Interior.ColorIndex = xlNone
End Select
Next
In der Exceltabelle kann sich das A verschieben, an dem vorherigen Ort bleibt aber die Formatierung.
Die Hintergrundfarbe (und zwar bei allen anderen Zellen) lösche ich durch den Befehl:
Case Else
rngZelle.Interior.ColorIndex = xlNone
(siehe oben, klappt auch wunderbar)
Was bleibt ist der rote (RGB(230, 49, 16)) Rahmen. Ich möcht jetzt speziell die Zellen mit dem roten Rahmen erfassen (und nicht alle Zellen) und bei dieser dafür sorgen, dass der Rahmen sich verändert:
Quasi (einfach gesagt) in der Case Else-Anweisung (siehe oben) eine If then-Anweisung einfügen (?):
If rngZelle.BorderAround Color:=RGB(230, 49, 16), Weight:=xlThick then rngZelle.BorderAround Color:=RGB(51, 51, 51), Weight:=xlThin
Ich hoffe, dass ich das was ich meine, verständlich ausdrücken konnte.
Für Eure Hilfe möchte ich mich schon einmal bedanken.
Grüße,
Matthias