Excel VBA Makro hängt sich auf

[Wexel]

Guten Morgen zusammen,

mit folgendem Befehl schiebe ich in meiner Tabelle um Zeillen 3 Reihen nach unten..

'Schiebe Reihe A10 in home eine Reihe hinunter
Sheets("home").Select
ActiveSheet.Unprotect
Range("A10:X210").Select
Selection.Copy
Range("A13").Select
ActiveSheet.Paste

leider schmiert mir Exel nach ActiveSheet.Paste ab, keine Rückmeldung...

In einem anderen Makro läuft der Befehl jedoch.

Wo liegt hier das Problem, weiss jemand rat ?

Danke Wexel

[Wastl]

Hi,

das ist kein aufgezeichnetes Makro?
mach das mal von Hand und zeichne dabei auf und vergleiche die Unterschiede

[Wexel]

Kann nicht wirklich einen Unterschied feststellen..

Das ganze hat ja auch eine ganze Zeit funktioniert, irgendwann halt nicht mehr, obwohl keine Änderung stattgefunden hat..

[Wastl]

du sagst, du schiebst, dabei kopierst du nur.
Probiere es in einer neuen leeren mappe, ob es da funktioniert.
Der Fehler liegt sicher wo anderes.

Meine Aufzeichnung

PHP-Code:

Sub Makro2()
    Application.Goto Reference:="R10C1:R210C24"
    Selection.Cut
    Range("A13").Select
    ActiveSheet.Paste
End Sub 


[Wexel]

Habe den Copy Paste Befehl ja in einer anderen Tabelle am laufen, ohne Probleme.

Wenn ich mit F8 durch den Befehl klicke, ist bei Activesheet.paste Ende mit Excel..

[Wastl]

Der Fehler liegt sicher wo anderes.

[Werner.M]

Hallo,

hast du eventuelle noch weitere Makros in der Datei, vor allem Event Makros?
Schalte mal zu Beginn des Codes mit aus und nach dem Code wieder ein.

Code:

Application.EbableEvents = False
'hier dein Code
Application.EnableEvents = True

Gruß Werner

[Wexel]

Hallo Werner, DAnke

leider keine Besserung.

Habe den Teil mal in einer neuen Tabelle getestet, das funktioniert.

[Wastl]

Den Teil von Werner musst du in der Datei, die abstürzt, probieren

[chris-ka]

Hallo Wexel,

mit folgendem Befehl schiebe ich in meiner Tabelle um Zeillen 3 Reihen nach unten..

'Schiebe Reihe A10 in home eine Reihe hinunter
Sheets("home").Select
ActiveSheet.Unprotect
Range("A10:X210").Select
Selection.Copy
Range("A13").Select
ActiveSheet.Paste

da wird kopiert?
und nicht geschoben...

Ist das in einer formatierten Tabelle?
Sind verbundene Zellen vorhanden?
Wie bzw Wann wird das Makro ausgeführt? (bei Klick, beim Öffnen, Schließen, Drucken, Änderung im Blatt,........ )Mir fehlt die SUB!
Warum fügst du nicht einfach 3 Zeilen ein?

Wie wäre es wenn du eine Bsp.datei einstellen würdest. :), dann wäre es gleich erledigt!