Sub autofilter(copiertab As String, suchwort As String, zieltab As String)
Dim Sh As Worksheet
On Error Resume Next
For Each Sh In Worksheets
If Sh.Name = copiertab Then
Sh.Range("A1").autofilter
Sh.Range("A1").autofilter 1, suchwort
Sh.Range("A1:D20").SpecialCells(xlCellTypeVisible).Copy _
Destination:=Sheets(zieltab).Cells(Sheets(zieltab).Cells(Rows.Count, 1) _
.End(xlUp).Row, 1)
End If
Next Sh
End Sub
Sub ausfuehrung()
Call autofilter("Tabelle1", "KTE", "Tabelle3")
Call autofilter("Tabelle2", "GTE", "Tabelle3")
End Sub