Thema Datum  Von Nutzer Rating
Antwort
Rot Spalten Copy Paste klappt. Dennoch Fehlermeldung
 21.01.2016 12:36:35 Falle
NotSolved
21.01.2016 12:58:48 Gast42497
NotSolved
21.01.2016 13:53:28 Gast60379
NotSolved
21.01.2016 14:16:34 Gast44218
Solved
22.01.2016 10:30:22 Falle
NotSolved

Ansicht des Beitrags:
Von:
Falle		 Datum:
21.01.2016 12:36:35		 Views:
1798		 Rating:
     
Antwort:
  Ja
Thema:
Spalten Copy Paste klappt. Dennoch Fehlermeldung		 
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
    ActiveSheet.Range(Columns(bis + 1), Columns(bis + 6)).Insert

    ActiveSheet.Cells(3, (bis + 2)).Select
EndSub
#####################

Wie gesagt, der Code funktioniert. Vor allem, wenn ich die Tabelle gerade erst geöffnet habe.

Wer kann mir sagen, was ich falsch mache?

Vielen Dank!!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Spalten Copy Paste klappt. Dennoch Fehlermeldung
 21.01.2016 12:36:35 Falle
NotSolved
21.01.2016 12:58:48 Gast42497
NotSolved
21.01.2016 13:53:28 Gast60379
NotSolved
21.01.2016 14:16:34 Gast44218
Solved
22.01.2016 10:30:22 Falle
NotSolved