Bsp.:
A1 = 3
A2 = 2
A1 = Anfang
A2 = Dauer
Ich möchte jetzt ab x3 ( da A1 = 3 ist ) zwei zellen weiter mit einfärben, also X4 und X5.
Wie kann ich das realisieren !?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Anf As Integer
Dim Dauer As Integer
If Not Intersect(Target, Range("A1:A2")) Is Nothing Then
Anf = Range("A1")
Dauer = Range("A2")
Range("X1").EntireColumn.Interior.ColorIndex = xlColorIndexNone
If Anf > 0 Then
Range(Cells(Anf, 24), Cells(Anf + Dauer, 24)).Interior.ColorIndex = 3
End If
End If
End Sub
Gruß Matthias=UND(SPALTE()-(SPALTE($B3)+2)>=$B3;SPALTE()-(SPALTE($B3)+2)