Doorgehaalde cellen wel in bron maar niet in draaitabel

[susanthuis]

Beste helpmij,

In de bronsheet van het Exel bestand zijn regels doorgehaald die ik in de draaitabel niet wil zien. Is het mogelijk om die met een formule uit te filteren? Het bestand is een voorbeeld en met veel minder regels. In het echt gaat het om duizenden regels. En dat is niet te doen om ze handmatig uit te filteren. Alvast dank voor de reactie.

 

[snb]

Is een kolom toevoegen waarin je markeert (met 1 teken) of een regel meegenomen moet worden niet eenvoudiger dan dire cellen doorhalen ?

Sub M_snb()
   sn = UsedRange.Columns(1).Cells.Offset(, 3)
   sn(1, 1) = "niet"
   
   For Each it In UsedRange.Columns(1).Cells
      If it.Font.Strikethrough Then sn(it.Row, 1) = "x"
   Next
   
   Cells(1, 4).Resize(UBound(sn)) = sn
End Sub

 

[susanthuis]

Is een kolom toevoegen waarin je markeert (met 1 teken) of een regel meegenomen moet worden niet eenvoudiger dan dire cellen doorhalen ?

Sub M_snb()
   sn = UsedRange.Columns(1).Cells.Offset(, 3)
   sn(1, 1) = "niet"
   
   For Each it In UsedRange.Columns(1).Cells
      If it.Font.Strikethrough Then sn(it.Row, 1) = "x"
   Next
   
   Cells(1, 4).Resize(UBound(sn)) = sn
End Sub

EENS! Dank voor de gouden tip!