der folgende Codeteil läuft zwar durch, bringt mir aber bei LzBe eine 0 (Null).
Wer kann mir sagen, was ich falsch gemacht habe?
Dim LzBe As Long
With Sheets("Berechnungstabelle")
Application.ScreenUpdating = False
.Unprotect
MsgBox LzBe
LzBe = Sheets("FeststellungenUebersichtDienstn").Application.Max(37, .Cells(. _
Rows.Count, 9).End(xlUp).Row)
.Range(.Cells(37, 1), .Cells(LzBe + 34, 175)).ClearContents
.Range(.Cells(36, 1), .Cells(36, 175)).Copy .Range(.Cells(37, 1), .Cells(LzBe + _
34, 175))
.Protect
End With
Besten Dank und Servus, Walter