Excel - undersøge et felt af gangen

Hvad er det du vil have der skal ske? Skal de celler der er gule farves gule???

Sub test()
Dim Y As Range
For Each Y In Selection
Adresse = Y.Address
If Range(Adresse).Interior.ColorIndex = 6 Then
    With Range(Adresse).Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End If
Next
End Sub

Har gjort sådan:

Dim Y As Range
For Each Y In Selection
Adresse = Y.Address
If Range(Adresse).Interior.ColorIndex = 6 Then
    MsgBox "FEJL"
    End
Else
    With Range(Adresse).Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End If
Next


Fungerer som udgangspunkt fint, men kun hvis den "blanke" (ikke farvede) celle er til sidst i markeringen. Hvis den blanke celle er den første i markeringen, melder den godt nok fejlen, men cellen bliver stadig farvet gul.

Det jeg prøver at lave, er et bookingsystem, hvor excel skal undersøge om en given periode (eller specielt DELE af en given periode) er optaget. I givet fald skal der meldes en fejl til brugeren. Er tidsrummet (cellerne) ikke optagede (farvede) skal de farves (optages).

Ok, det giver lidt mere mening.

Har løst opgaven ved at gøre sådan:

Dim x As Integer
Dim Y As Range

For Each Y In Selection
Adresse = Y.Address
If Range(Adresse).Interior.ColorIndex = 6 Then
    x = x + 1
End If
Next
   
If x >= 1 Then
    MsgBox "TIDSRUMMET ER OPTAGET!!!"
    End
Else
For Each Y In Selection
Adresse = Y.Address
    With Range(Adresse).Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
Next
End If

Er måske lidt omstændigt med de 2 for-Next rutiner, men det virker...

Tusind tak for hjælpen - det var For EACH jeg manglede :-)

Smider du et svar så du kan få point?

Dette er vel et godt svar:

Sub test()
Dim Y As Range
For Each Y In Selection
Adresse = Y.Address
    If Range(Adresse).Interior.ColorIndex = 6 Then
        MsgBox "FEJL"
        End
    End If
Next
With Selection.Interior
    .ColorIndex = 6
    .Pattern = xlSolid
    End With
End Sub