Option Explicit  

Sub FilterKopieren()
    With Worksheets("Tabelle2")
        .Range("A1").AutoFilter Field:=1, Criteria1:=1
        .Rows("2:" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row).Copy Worksheets("Tabelle1").Range("A" & Worksheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
        .Range("A1").AutoFilter
    End With
End Sub  

Option Explicit  

Sub DatenSuchen()
    Dim SpaltenAnz As Long, QuellAnz As Long, ZeilenAnz As Long
    Dim Wks1Lzeile As Long, Wks2Lzeile As Long, Wks2Lspalte As Long
    Dim Zindex As Long
    Worksheets("Tabelle1").Activate
    Wks1Lzeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    ReDim WksSuchDat(1 To Wks1Lzeile, 1 To 1) As Variant
    WksSuchDat() = Range(Cells(1, 1), Cells(Wks1Lzeile, 1))
    Worksheets("Tabelle2").Activate
    Wks2Lzeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    Wks2Lspalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
    ReDim WksQuelle(1 To Wks2Lzeile, 1 To Wks2Lspalte) As Variant
    ReDim WksNeu(1 To Wks2Lzeile, 1 To Wks2Lspalte) As Variant
    WksQuelle() = Range(Cells(1, 1), Cells(Wks2Lzeile, Wks2Lspalte))
    Worksheets("Tabelle3").Activate
    For ZeilenAnz = 2 To Wks1Lzeile
        For QuellAnz = 2 To Wks2Lzeile
            If WksSuchDat(ZeilenAnz, 1) = WksQuelle(QuellAnz, 1) Then
                Zindex = Zindex + 1
                For SpaltenAnz = 1 To Wks2Lspalte
                    WksNeu(Zindex, SpaltenAnz) = WksQuelle(QuellAnz, SpaltenAnz)
                Next SpaltenAnz
            End If
        Next QuellAnz
    Next ZeilenAnz
    Range(Cells(2, 1), Cells(Wks2Lzeile + 1, Wks2Lspalte)).Resize(UBound(WksNeu())) = WksNeu()
End Sub