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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen