Of met een macro.
Sub Probeer_Dit_Misschien()
Dim i As Long, j As Long, k As Long, ta()
Application.ScreenUpdating = False
For i = 2 To ActiveWorkbook.Sheets.Count
Sheets(i).UsedRange.Offset(1).ClearContents
Next i
j = 2
ta = Array("peaches", "pens", "apples")
For k = LBound(ta) To UBound(ta)
With Sheets("Input").Range("A1:D" & Cells(Rows.Count, 2).End(xlUp).Row)
.AutoFilter 2, ta(k)
.Offset(1).Copy Sheets(j).Cells(2, 1)
.AutoFilter
End With
j = j + 1
Next k
Application.ScreenUpdating = True
End Sub
Bookmarks