habe aus dem Forum folgenden Code. Bei ausfüllen der Zellen B5 bis B18 werden
derzeit die Zellen C5 bis C18 farblich markiert.
Ich schaffe es nicht, dass statt der Spalte C jeweils die Spalten A und B
farblich markiert werden (also wieder Zeilen 5 bis 18).
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 2 And Target.Row > 4 And Target.Row < 19 Then
Select Case Target.Value
Case "6,5"
Target.Cells(1, 2).Interior.ColorIndex = 4
Case "7,25"
Target.Cells(1, 2).Interior.ColorIndex = 15
Case "7,5"
Target.Cells(1, 2).Interior.ColorIndex = 5
Case "8,5"
Target.Cells(1, 2).Interior.ColorIndex = 6
Case 14
Target.Cells(1, 2).Interior.ColorIndex = 6
Case "9"
Target.Cells(1, 2).Interior.ColorIndex = 6
Case "7,75"
Target.Cells(1, 2).Interior.ColorIndex = 6
Case ""
Target.Cells(1, 2).Interior.ColorIndex = xlColorIndexNone
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End If
End Sub
Besten Dank für eine Hilfe!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
Private Tippgemeinschaft für Lotto oder KENO: http://www.kenostrategen.de