Option
Explicit
Const
sWorksheet_Exportdaten
As
String
=
"Exportdaten"
Const
sWorksheet_Dreherei
As
String
=
"Dreherei"
Const
sWorksheet_KLDreherei
As
String
=
"KL Dreherei"
Const
sWorksheet_Wuchten
As
String
=
"Wuchten"
Const
sWorksheet_Konfektion
As
String
=
"Konfektion"
Const
sWorksheet_PUuCC
As
String
=
"PU & CC"
Const
sWorksheet_Bohren
As
String
=
"Bohren"
Const
sWorksheet_Schleifen
As
String
=
"Schleifen"
Const
sWorksheet_Serviceold
As
String
=
"Serviceold"
Const
sWorksheet_Service
As
String
=
"Service"
Const
sWorksheet_Risspruefung
As
String
=
"Rissprüfung"
Const
sWorksheet_Qualitaet
As
String
=
"Qualität"
Const
sWorksheet_Waschen
As
String
=
"Waschen"
Public
iActYear
As
Integer
Public
iActWeek
As
Integer
Dim
bError
As
Boolean
Dim
oWorkbook
As
Workbook
Dim
iNextYear
As
Integer
Dim
iNextWeek
As
Integer
Dim
lDestRowActWeek
As
Long
Dim
lDestRowNextWeek
As
Long