Hallo.

Vielen Dank für die Antwort. Ich bin fündig geworden ,was die beiden Variablen (lDestRowActWeek und lDestRowNextWeek) angeht.

Zuerst ganz oben im Code:

' Makro Wochenplan Version 1.13 (17.09.2014)
' Überarbeitung (Version 1.06) von S. Weiss am 21.07.2014 (Rissprüfung, Qualität, Waschen, Service2, Exportdaten2 hinzugefügt

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

Und dann hier noch einmal:

' Zeilenzähler zurücksetzen? Sonderfall für "KL Dreherei" und "PU & CC"
  If bReset = True Then
    lDestRowActWeek = 3
    lDestRowNextWeek = 3
  End If

Habe zum Testen einmal für die lDestRowActWeek aus der 3 eine 4 gemacht siehe da, der Text würde in Zeile 4 beginnen. Allerdings macht das Makro dies natürlich jetzt erst einmal für alle Registerblätter. Ich möchte dies aber nur für das Registerblatt mit dem Namen "Service". Wie kann ich in VBA übersetzt nun mittteilen, dass ab Zeile 4 bei Service begonnen werden soll, bei den übrigen Registerblättern aber bei 3?

Danke,

Stefan