Hallo Bert

Oder auch so!

Sub DeinMakro()
 Dim Eingabestring As String
 Eingabestring = InputBox("Eingabe")
 Call CopyTab("Tabelle3", Eingabestring)
 Call CopyTab("Tabelle4", Eingabestring)
End Sub

Sub CopyTab(Tabname As String, Suchbegriff As String)
 Worksheets(Tabname).Range("B1").AutoFilter Field:=1, Criteria1:=Suchbegriff
 Worksheets(Tabname).AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tabelle5").Range("A" & Worksheets("Tabelle5").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
 Worksheets(Tabname).Range("A10").AutoFilter
End Sub

Gruß Michael