Sub
CopyFormulas_Liqui()
Dim
letzteZeile
As
Long
letzteZeile = Cells(Rows.Count, 4).
End
(xlUp).Row
If
letzteZeile > 7
Then
Range(
"Y7"
).AutoFill Destination:=Range(
"Y7:Y"
& letzteZeile), Type:=xlFillDefault
Range(
"AB7"
).AutoFill Destination:=Range(
"AB7:AB"
& letzteZeile), Type:=xlFillDefault
Range(
"AG7"
).AutoFill Destination:=Range(
"AG7:AG"
& letzteZeile), Type:=xlFillDefault
Range(
"AH7"
).AutoFill Destination:=Range(
"AH7:AH"
& letzteZeile), Type:=xlFillDefault
Range(
"AI7"
).AutoFill Destination:=Range(
"AI7:AI"
& letzteZeile), Type:=xlFillDefault
Else
letzteZeile = Cells(Rows.Count, 25).
End
(xlUp).Row
If
letzteZeile = 7
Then
Exit
Sub
Range(Cells(8, 25), Cells(letzteZeile, 25)).ClearContents
Range(Cells(8, 28), Cells(letzteZeile, 28)).ClearContents
Range(Cells(8, 33), Cells(letzteZeile, 35)).ClearContents
End
If
End
Sub