Hallo,
teste mal:
Sub CopyFormulas_Liqui()
Dim letzteZeile As Long 'letzte Zeile
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
Gruß Werner
|