Office: (Office 2013) Zeile mit VBA kopieren

Hallo Forum,
ich stehe vor einem Problem mit einem kleinen VBA-Makro.

Folgende Aufgabe:
Zeile 8 komplett kopieren und unter Zeile 8 einfügen.
Aber so einfügen dass die darunter befindlichen Zeilen nach unten verschoben werden.
Danach noch ein paar Zellen leeren.

Code:

Eigentlich keine große Sache. Funktioniert auch wunderbar, bis ich in einer Zelle unterhalb (z.B. A10) etwas eintrage.
Danach bricht die Prozedur mit dem Fehler

ab.

Was mache ich hier falsch?

Gruß Carsten

PS: Ich verwende Excel 2016-64Bit (Gab es nicht als Präfix)

:)

 

Der Fehler tritt anscheinend auch nur auf wenn man vor dem Kopieren manuell einen Eintrag unterhalb der einzufügenden Zeile geändert hat.
Ist die Zeile/Zelle beim Öffnen schon belegt macht diese Routine keine Probleme. Auch ist ein mehrfaches kopieren nacheinander kein Problem.

Ich habe auch das Gefühl dass der Fehler erst mit der Excel2016-Version aufgetaucht ist. Das ist aber nur ein Gefühl. Geschrieben hab ich diese Prozedur mit Excel 2010. *frown.gif*

 

Hallo Carsten,

den Fehler kann ich mit dem Codeschnipsel und den Angaben nicht nachstellen.

Code:

Grüße
EarlFred

 

Das ist das Problem...
mehr Code ist es nicht.

Code:

Im Anhang mal die Tabelle

 

Hallo Carsten,

was der SendKeys-Befehl dort soll, ist mir schleierhaft. Wenn es darum geht, den flimmernden Rand nach dem Kopieren zu entfernen, solltest du Code:

nehmen, wie ja EarlFred auch schon geschrieben hat.

Ansonsten macht der Code bei mir keine Probleme.

 

Guten Morgen...
das mit dem CutCopyMode hatte ich gar nicht gesehen danke dafür.

Jetzt ist mir Excel eben richtig abgeschmiert und hat danach die Tabelle wiederhergestellt.
Seitdem läuft es wie erwartet.
Bin gespannt ob das so bleibt.

Nach der Ursache frage ich jetzt lieber nicht *wink.gif*

Danke für Eure Unterstützung