ingekleurde cellen automatisch kopiëren naar nieuw tabblad

[SjonR]

Wat een attitude

 

[HSV]

De eerste component van attitude is belangrijk bij Excel.

 

[VenA]

Mijn voorkeur gaat er naar uit om code uit te voeren bij Worksheet_Activate. Het in 1 keer bewerken van een blad zal een grotere snelheidswinst geven dan het verschil tussen find en match:d

Private Sub Worksheet_Activate()
  For Each cl In Sheets("Leerplandoelen").UsedRange.Offset(7).SpecialCells(2)
    If cl.Interior.Color = vbYellow Then c00 = c00 & "|" & cl
  Next cl
  lr = Application.Match("Attitudes", Columns(1), 0)
  
  If Not IsError(lr) Then
    If lr > 3 Then Range("A3:A" & lr - 1).EntireRow.Delete
  End If
  
  If Len(c00) > 0 Then
    ar = Split(Mid(c00, 2), "|")
    Cells(3, 1).Resize(UBound(ar) + 1).EntireRow.Insert
    Cells(3, 1).Resize(UBound(ar) + 1).Value = Application.Transpose(ar)
    Cells(3, 1).Resize(UBound(ar) + 1).Interior.Color = vbYellow
  End If
End Sub