Zellen enfärben
07.02.2004 18:11:58
toni
Formuliere meine Frage nun exakter.
Mit folgender VBA wird wenn in Zelle Dn eine 1 steht die Zelle En entsprechend eingefärbt. Nun möchte ich dies erweitern so dass auch in den Zellen Cn, Dn, En, und Gn bis Kn die Hintergrundzellfarbe entsprechend der Auswahl Dn übernommen wird.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case 1
Target.Cells(1, 2).Interior.ColorIndex = 36
Case 2
Target.Cells(1, 2).Interior.ColorIndex = 15
Case 3
Target.Cells(1, 2).Interior.ColorIndex = 20
Case 4
Target.Cells(1, 2).Interior.ColorIndex = 4
Case ""
Target.Cells(1, 2).Interior.ColorIndex = xlColorIndexNone
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub
Würde mich über ein Lösung sehr freuen.
Vielen Dank
Toni
Anzeige