VBA - Code ändern
Ralf
ich habe einen Code, der auch ganz wunderbar funktioniert.
Dieser Code bewirkt, das mir Excel im Bereich von B5 bis CM 58 immer
zwei Spalten vorher die entsprechende Zelle färbt ( z.B.: F5 = 3 dann
ist D 5 rot )
Nun meine Frage: ich möchte den Bereich gerne einschränken, nicht
von B5 bis CM58 sondern gezielter, d.h. von F5 : F 58 und den gleichen
Bereich für die Spalten: L,R,X,AD,AJ,AP ( immer von Zeile 5 bis 58 )
Da auch nach langem Probieren kein Licht im Tunnel zu entdecken war,
möchte ich Euch fragen, ob jemand eine Idee hat, wie man den Code s.u.
ändern müßte, damit es funktioniert ?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
On Error Resume Next
If Not Intersect(Target, Range("B5:CM58")) Is Nothing And Target.Count = 1 Then
For Each C In Range("B5:CM58")
If C.Value "" Then C.Offset(, -2).Interior.ColorIndex = C.Value
Next
End If
End Sub
Ralf
Anzeige