|
Lass mal den Pfad der Zieldatei weg
oder versuche folgendes:
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\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
|