Zwei Zeilen per Button kopieren/einfügen
06.10.2021 23:14:06
mr_twin
ich habe eine Zeiterfassungsliste. Da möchte ich gerne die Zeile wo sich ein Button befindet kopieren plus die Zeilen drunter. Die zwei neuen Zeilen sollen dann direkt unter den kopierten eingefügt werden. Ich habe es soweit hinbekommen, dass die Zeile mit den Button kopiert wird, aber ich weiß nicht wie ich die zweite Zeile direkt dadrunter mitkopieren und einfügen kann.
Das ist der Code:
Sub MAKopie()
Dim MARow As Range
Set MARow = ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow
MARow.Copy
MARow.Offset(1).Insert
Application.CutCopyMode = False
End Sub
Lieben Dank für eure Hilfe!
Grüße
mr_twin