Ist es möglich Formeln angefangen in I3 bis U3 per Macro kopieren zu lassen soweit wie in Spalte G etwas steht?
Hat hier jemand eine Idee
Liebe Grüße Lisa
Sub kopieren()
Dim loletzte As Long
'Hier wird geschaut bis wo in Spalte G etwas drinsteht
loletzte = IIf(IsEmpty(Cells(Rows.Count, 7)), Cells(Rows.Count, 7).End(xlUp).Row, Rows.Count)
If loletzte >= 1 Then
Range("I3").AutoFill Destination:=Range("I3:U3")
End If
End Sub
Gruß Jonatan
ActiveSheet.Range("I3:U3").Copy _
Destination:=ActiveSheet.Range("I4:U" & _
ActiveSheet.Range("G" & ActiveSheet.Rows.Count).End(xlUp).Row)
GreettZ Renée
Sub tt()
Range("I3:U3").Resize(Range("G65536").End(xlUp).Row - 2).FormulaLocal _
= Range("I3:U3").FormulaLocal
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe