Public
Sub
Import()
Dim
strPfadDateiQuelle
As
String
Dim
strPfadDateiZiel
As
String
Dim
strNameDateiAktuell
As
String
Dim
dateDatumQuelle
As
Date
Dim
lngZaehlerZeileQuelle
As
Long
Dim
lngZaehlerSpalteQuelle
As
Long
Dim
lngZaehlerZeileZiel
As
Long
Dim
lngZaehlerSpalteZiel
As
Long
Dim
lngKWwoche
As
Long
strPfadDateiQuelle = "O:\Reporting\1st_CS\Team_Wittstock\02_Auswertung_CCSI\"
strPfadDateiZiel = "H:\christianmüller\Projekte\KPI-Übersicht\"
lngZaehlerZeileZiel = 2
lngZaehlerSpalteZiel = 1
Application.ScreenUpdating =
False
lngKWwoche = Format(
Date
,
"WW"
)
For
lngKWwoche = 1
To
52
Step
1
strNameDateiAktuell =
"AuswCCSI_KW2017-"
& Format(lngKWwoche,
"00"
) &
"_Team_Wittstock"
&
".xlsx"
Workbooks.Open strPfadDateiQuelle & strNameDateiAktuell
lngZaehlerZeileQuelle = 2
lngZaehlerSpalteQuelle = 1
Do
Until
(Workbooks(strNameDateiAktuell).Worksheets(
"AuswMA"
).Cells(lngZaehlerZeileQuelle, lngZaehlerSpalteQuelle) =
""
)
Do
Until
(Workbooks(strNameDateiAktuell).Worksheets(
"AuswMA"
).Cells(lngZaehlerZeileQuelle, lngZaehlerSpalteQuelle) =
""
)
ThisWorkbook.Worksheets(
"Rohdaten CCSI"
).Cells(lngZaehlerZeileZiel, lngZaehlerSpalteZiel) = _
Workbooks(strNameDateiAktuell).Worksheets(
"AuswMA"
).Cells(lngZaehlerZeileQuelle, lngZaehlerSpalteQuelle)
lngZaehlerSpalteZiel = lngZaehlerSpalteZiel + 1
lngZaehlerSpalteQuelle = lngZaehlerSpalteQuelle + 1
Loop
lngZaehlerZeileZiel = lngZaehlerZeileZiel + 1
lngZaehlerZeileQuelle = lngZaehlerZeileQuelle + 1
lngZaehlerSpalteZiel = 1
lngZaehlerSpalteQuelle = 1
Loop
Workbooks(strNameDateiAktuell).Close
Next
Application.ScreenUpdating =
True
End
Sub