AW: Makrofrage - letzte benutzte Zeile
30.04.2011 19:35:08
WalterK
Hallo,
irgendetwas mache ich falsch. Hier ist mein Code, es kommt aber der Fehler "Anwendungs- und objektdefinierter Fehler":
Sub Formelnkopieren()
Dim LzA As Long
Dim LzEY As Long
With Sheets("Bearbeitungsblatt")
LzA = .Cells(.Rows.Count, 1).End(xlUp).Row
LzEY = Application.Max(4, .Cells(.Rows.Count, 155).End(xlUp).Row)
Application.ScreenUpdating = False
.Range(.Cells(4, 136), .Cells(LzEY, 155)).ClearContents
.Range(.Cells(4, 166), .Cells(LzEY, 166)).ClearContents
.Range(.Cells(4, 170), .Cells(LzEY, 191)).ClearContents
.Range(.Cells(3, 136), Cells(3, 155)).Copy .Range(.Cells(4, 136), Cells(LzA * 6, 155))
.Range(.Cells(3, 166), Cells(3, 166)).Copy .Range(.Cells(4, 166), Cells(LzA * 6, 166))
.Range(.Cells(3, 170), Cells(3, 191)).Copy .Range(.Cells(4, 170), Cells(LzA * 6, 191))
Range("FN1").Select
Application.ScreenUpdating = True
.Protect
End With
End Sub
Danke und Servus, Walter