Regel invoegen op basis van woord in tekst

[gvanwijk]

Welke macro zou ik kunnen gebruiken:

1. om een lege regel in te voegen (onder de bestaande regel)
2. als de celtekst onder "Omschrijving' (kolom D vanaf regel 16) een woord bevat uit één van de cellen D3 t/m D12 ("Voorwaarden")

Zie bijlage

 

[sylvester-ponte]

hallo g, wat moet er gebeuren als de macro 2 maal gedraaid wordt?
dan komen er 2 regels onder de gevonden rijen. of is dat niet de bedoeling?

 

[gvanwijk]

Nee klopt, niet de bedoeling, macro draait 1x

 

[JEC.]

Bvb

Sub jec()
 Dim it, i As Long
 With Range("D16").CurrentRegion
   For i = .Rows.Count To 2 Step -1
     For Each it In Range("D3", Range("D3").End(xlDown))
       If InStr(.Cells(i - 1, 3), it) Then .Rows(i).Insert
     Next
   Next
 End With
End Sub

 

[gvanwijk]

Ha, geweldig. Dat werkt, bedankt :thumb:!