Aktuelle Daten von Tabellenblatt1 in Tabellenblatt2 uebertragen und jaehrlich anpassen

Question

Hallo,
Ich habe in meinem Tabellenblatt 1 mittels einer VBA Formulars eine Tabelle mit den Informationen aller Mitarbeiter erstellt. (A-N ->12 Spalten)
Jetzt sollen in Tabellenblatt 2 nur die Informationen der Aktuellen Mitarbeiter angezeigt werden ( diese kennzeichnen sich in der Tabelle dadruch, dass in der Letzten Spalten N = Ende der Arbeitszeit , die jeweilige Zelle leer ist) und die Informationen der Mitarbeiter, die 2015 aufgehoert haben zu arbeiten (Spalte N ist folgendermassen formatiert : dd/mm/yyyy ; @).

Natuerlich waere es schoen, wenn sich die Liste jedes Jahr aktualisiert.

Ich hoffe mir kann jemand weiter helfen (:

Steffi

Answer 1

Hallo Steffi,
da wäre eine kleine Musterdatei
sehr hilfreich.

Gruß
fedjo

Answer 2

Den Link der Musterdatei natürlich ins Forum stellen.

Gruß
fedjo

Answer 3

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