Hallo Steffi,
versuch es mal so:
Code in Tabelle2 einfügen, Daten werden ab Zeile 2 übertragen, sobalt die Tabelle2 aktiviert wird.
Gruß
fedjo
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False 'Tabellenwechsel verhindern
Sheets("Tabelle2").Rows("2:5000").ClearContents ' Einträge gelöscht
Sheets("Tabelle1").Range("A2:N2").AutoFilter , Field:=14, Criteria1:="="
Sheets("Tabelle1").Range("A2:M" & Sheets("Tabelle1").UsedRange.Rows.Count). _
SpecialCells(xlCellTypeVisible).Copy 'Kopieren
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 'Mitarbeiter übertragem
Sheets("Tabelle1").Range("$A$2:$N$23").AutoFilter Field:=14 'Autofilter zurücksetzen
If Sheets("Tabelle1").AutoFilterMode = True Then Sheets("Tabelle1").Range("A2:N2").AutoFilter 'Autofilter löschen
Application.ScreenUpdating = True 'Tabellenwechsel erlauben
Sheets("Tabelle2").Range("A1").Select 'Zelle A1 Auswahl
End Sub