|
Hallo,
doch leider will es nicht ganz.
Was das bedeutet, weißt bis jetzt immer noch nur du. Fehlermeldung? Wenn ja welche? In welcher Codezeile?
Und wenn ich mir deine ganzen deklarierten Variablen ansehe, wovon die meisten im geposteten Code überhaupt nicht verwendet werden, dann gehe ich mal davon aus, dass das jetzt wieder nicht dein kompletter Code ist.
So und jetzt mal ein Schuß ins blaue - möglicherweise ein Referenzierungsproblem:
Sub PDF()
Dim LastRowName As Integer
Dim B As Long, i As Long, LastRowSort As Long
Dim LastRowFeiertag As Long, LastRowArbeitsstundenUndNacht As Long
Dim LastrowSamstagsstunden As Long, LastrowSonntagsstunden As Long
Dim LastRowSchichtführer As Long
B = 2
With Sheets(3)
.Rows("1:200").RowHeight = 10
End With
With Tabelle2
LastRowName = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
With Sheets(B + 10)
LastRowArbeitsstundenUndNacht = .Cells(.Rows.Count, "B").End(xlUp).Row
LastrowSamstagsstunden = .Cells(.Rows.Count, "Y").End(xlUp).Row
LastRowFeiertag = .Cells(.Rows.Count, "AK").End(xlUp).Row
LastRowFeiertag = .Cells(.Rows.Count, "AW").End(xlUp).Row
LastRowSchichtführer = .Cells(.Rows.Count, "BI").End(xlUp).Row
.Range(.Cells(2, 13), .Cells(LastRowArbeitsstundenUndNacht, 23)).Copy
Sheets(3).Cells(Sheets(3).Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End Sub
Übrigens würde ich bei aktuellen Excel-Versionen Laufvariable nicht mehr als Integer Dimensionieren sondern als Long (was aber wohl eher nichts mit deinem Problem zu tun hat).
Gruß Werner
|