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"
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 Michel Wittstock"
Then
Windows(
"T_Report Stammdaten_2017.xlsm"
).Activate
Sheets(
"MA Daten"
).
Select
.Rows(Zeile).Copy
Windows(
"KPI_Übersicht_3_1_0.xlsm"
).Activate
Sheets(
"Rohdaten Team"
).
Select
Cells(n, 1).
Select
ActiveSheet.Paste
n = n + 1
End
If
Next
Zeile
End
With
Application.ScreenUpdating =
True
End
Sub