Abfrageproblem
24.06.2005 11:22:47
Stefan
ich habe folgendes Problem: In Zelle P11 habe ich eine Gültigkeistprüfung Liste eingerichtet, mögliche Werte "Eilt","Ohne" und "Normal".Nun möchte ich das sich die Zelle in Abhänigkeit vom Inhalt farblich ändert.Dazu habe ich folgenden Code angedacht:
Private Sub Worksheet_Calculate()
If [P11] = Eilt Then
Call Makro1
Else
Call Makro2
End If
End Sub
Makro 1 sieht wie folgt aus:
Sub Makro1()
Range("P11").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
Irgendwie haut das aber nicht hin, weiß von Euch jemand Rat?
Mit lieben Gruss
Stefan