nur so ne idee. Du filterst Tabelle4 aber kopieren möchtest du Tabelle1??? Denn die nutzt du auch schon im ersten Filter als copiertabelle.
Zusammengefasst könnte das so aussehen.
Du soltest die sub umbenennen. Dann rufst du sie zweimal auf. Erst mit der ersten Tabelle als copiertabelle und dann mit der zweiten Tabelle
call filterTab(suchwort, "Tabelle1", zieltabelle, begriff)
call filterTab(suchwort, "Tabelle4", zieltabelle, begriff)
Sub filterTab(suchwort As String, copiertabelle As String, zieltabelle As String, begriff As String)
'Filter
dim lrow&
With Worksheets(copiertabelle)
.AutoFilterMode = False
with .Range("A1:D20")
lrow =Sheets(zieltabelle).Cells(Rows.Count, 1).End(xlUp).Row
lrow = iif(lrow = 1 and =Sheets(zieltabelle).Cells(1,1)="" ,1,lrow +1)
.AutoFilter Field:=2, Criteria1:="*"&suchwort&"*"
.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(zieltabelle).Cells(lrow, 1)
end with
End With
end sub
|