Betinget formatering - Excel 2007

sådan her måske!?
højre klik på dit ark i bunden og vis programkode og indsæt den der!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(3, 4) > 0 Then
    With Range("A3:F3").Interior
        .ColorIndex = 5
    End With
Else
    With Range("A3:F3").Interior
        .ColorIndex = 0
    End With
End If
End Sub

'Det skal gælde for alle linier i arkområdet.' = at hvis der står noget i D4 så er A4..F4 også koloreret.

hvor mange linier snakker vi om!?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r
For r = 2 To 100
If Cells(r, 4) > 0 Then
    With Range(Cells(r, 1), Cells(r, 6)).Interior
        .ColorIndex = 5
    End With
Else
    With Range(Cells(r, 1), Cells(r, 6)).Interior
        .ColorIndex = 0
    End With
End If
Next r
End Sub

Er det ikke lettere at lave en betinget formattering i A3 med følgende formel:
=$D3>0
og så kopiere formatteringen til hele området

Fik det løst ved hjælp af input fra jens48, så smid lige et svar.

Du får et svar