Autofill genau eine Zeile nach unten
26.09.2022 14:37:55
Blaupolanski
Gehe in die letzte Zeile (anhand Spalte A)
Füge eine neue Zeile hinzu
Kopiere die Formeln von Spalte AR bis einschließlich AY in die neu hinzugefügte Zeile
Ich habe es auch schon FAST soweit, bis auf das Autofill, ich verstehe einfach nicht was ich da in Destination angeben soll damit es genau in die Zeile darunter markiert.
Ich habe mir in den letzten 2 Stunden sämtliche Beträge dazu durchgelesen, leider krieg ichs nicht zum laufen.....
Hier der Code soweit mal:
Sub Zeilen_hinzufügen()
Application.ScreenUpdating = False
Range("A2").Select 'Los zu Zelle A2
Selection.End(xlDown).Select 'Ganz runter in die Liste
ActiveCell.Offset(1, 0).Select '1x runter
Rows(ActiveCell.Row).Select 'Wähle die Reihe der aktiven Zelle an
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 'hinzufügen einer neuen Reihe
ActiveCell.Offset(-1, 43).Select '1x hoch und 43x rechts also zu Zelle AR
Range(Selection, Selection.End(xlToRight)).Select 'Markieren Shift hier bis Zelle AY
Selection.AutoFill Destination:=Range(..... 'Hier will ich genau eine Zeile nach unten kopieren
Application.ScreenUpdating = True
End Sub
Kann mir da jemand auf die Sprünge helfen?Beste Grüße