Regel kopieren naar nieuw werkblad adhv stukje string

[Verwijderd]

Beste Tweakers,

Ik zou graag een macro willen waarmee ik op basis van een stukje string ergens in een cel de hele regel kopieer naar een nieuwe regel op een nieuw werkblad. Ik wil graag twee invoercellen hebben waar ik aangeef welk stukje string en in welke kolom er gezocht moet worden.

Bijvoorbeeld: in blad 1 cel B2 geef de gebruiker aan zoek in "kolom C" (van blad 2) en in blad 1 cel B3 geeft hij/zij aan dat er gezocht moet worden naar "konijnen".

Vervolgens kopieert excel alle regels waarin binnen de kolom ergens "konijnen" voorkomt binnen de cel.

Dit is wat ik tot nu toe heb:

Sub CopyRowsAcross()
Dim i As Integer
Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Blad2")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Blad3")
For i = 2 To ws1.Range("B65536").End(xlUp).Row
If ws1.Cells(i, 2) = "AA" Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row + 1)
Next i
End Sub

[GNID]

Deze vraag lijkt me niet onder Windows Clients thuishoren.

Los daarvan: Een simpel invoerfilter (autofilter) doet wat je vraagt. Dat kun je ook vanuit VBA aanspreken/-sturen.

[F_J_K]

Aub voortaan liever vragen het topic te verplaatsen ipv een nieuwe te openen

Zie verder Regel kopieren naar nieuw werkblad VBA (en reactie daar).