Sub ZieheTeammitglieder()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
Application.ScreenUpdating = False
Workbooks.Open Filename:="O:\WFM\02 Abwesenheiten\08 Actuals\2017\T_Report Stammdaten_2017.xlsm"
Workbooks("T_Report Stammdaten_2017.xlsm").Activate
Worksheets("MA Daten").Activate
With Worksheets("MA Daten")
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 5).Value = "T_TL XXX XXX" Then
.Rows(Zeile).Copy Destination:=Workbooks("H:\XXX\Projekte\KPI-Übersicht\KPI_Übersicht_3_1_0.xlsm").Worksheets("Rohdaten Team").Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub