Funktion Bedingte formatierung
16.09.2003 20:17:46
mario
brauche Hilfe.Z.B. in B1 steht = C1/D1 , Resultat = 2,
Mit folgender Funktion,die in z.B. in A1 steht, möchte ich nun die Zelle bedingt
formatieren,aber es funktioniert nicht.Wer hilft mir??
Gruss Mario
Function Muster(Zelle)
Select Case Zelle.Value
Case Is < 10
Zelle = 3
Case 11 To 20
Zelle = 4
Case 21, 23, 24
Zelle = 6
Case 22
Zelle = 7
Case Is > 25
Zelle = 8
Case Else
Zelle = 2
End Select
With Selection.Interior
.ColorIndex = Zelle
.PatternColorIndex = xlAutomatic
End With
End Function