Hallo,
obwohl der folgende Code eigentlich funktioniert, kommt immer mal wieder folgende Fehlermeldung:
[Laufzeitfehler -21474... Die Methode Insert für das Object Range ist fehlgeschlagen.]
Funktion des Codes: In Abhängigkeit von der Position der Schaltfläche (Application.Caller) werden 5 Spalten Copiert und rechts neben der Schaltfläche eingefügt.
Fett markiert ist die Hinterlegte Zeile beim Debuggen.
###################
Sub copypaste()
Dim von As Variant
Dim bis As Variant
bis = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column
von = bis - 5
ActiveSheet.Range(Columns(von), Columns(bis)).Select
Selection.Copy
<strong>ActiveSheet.Range(Columns(bis + 1), Columns(bis + 6)).Insert</strong>
ActiveSheet.Cells(3, (bis + 2)).Select
EndSub
#####################