Als Cel A1 een kleur heeft, dan een Waarde invullen in B1

[1965Peter]

Is er een formule voor:

Als Celkleur A1 is rood, dan B1 de tekst "Dubbel", anders leeg laten.

Of bij een andere benadering:

Als een cel in kolom A geen kleur heeft, dan de hele regel verwijderen.
mag eventueel in vba.

Alvast bedankt

 

[Cobbe]

Test deze eens:

Sub kleur()
lastr = Range("A" & Rows.Count).End(xlUp).Row
 For i = lastr To 1 Step -1
  If Cells(i, 1).Interior.ColorIndex = xlNone Then
   Rows(i).Delete
  End If
 Next
End Sub

 

[1965Peter]

Bekijk bijlage Kleur.xlsm

Hallo Cobbe,

De vba code werkt niet, ik heb een stukje van mijn bestand toegevoegd.
In dit geval gaat het om kolom L.

 

[VenA]

Als het een aaneengesloten bereik is vanaf A1 dan kan je deze proberen.

Sub VenA()
With Sheets("Contract Data").Cells(1).CurrentRegion
    .AutoFilter 12, RGB(255, 255, 255), xlFilterCellColor
    .Offset(1).EntireRow.Delete
    .AutoFilter
End With
End Sub

 

[1965Peter]

VenA,

Op de regel krijg ik foutmelding

.AutoFilter 12, RGB(255, 255, 255), xlFilterCellColor

 

[Cobbe]

De vba code werkt niet

De code werkt niet, is niet hetzelfde als : ik krijg ze niet werkend omdat.....

 

[VenA]

Dan heb je dus geen aaneengesloten bereik.

Sub VenA()
With Sheets("Contract Data").Cells(1, 12).CurrentRegion
    .AutoFilter 1, RGB(255, 255, 255), xlFilterCellColor
    .Offset(1).EntireRow.Delete
    .AutoFilter
End With
End Sub