Schleife
09.02.2006 14:42:09
Jede029
kann man diesen code in eine Schleife packen so das ich nicht nur die einen Zellen ansprechen kann sondern von [f8] bis [f90] und [e8] bis [e90].
Danke für Eure Hilfe
jens
Private Sub Worksheet_Calculate()
Dim farbe
Select Case [f8].Value
Case "ALSi 7 Mg"
'grün
farbe = 4
Case "ALSi 9 Mg"
'Blau
farbe = 5
Case "ALSi 11 Mg"
'Gelb
farbe = 6
Case "ALSi 11 Dv"
'Orange
farbe = 46
Case Else
farbe = xlNone
End Select
[E8].Interior.ColorIndex = farbe
End Sub
Anzeige