Clever-Excel-Forum

Normale Version: Excel VBA Makro hängt sich auf
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
Hi,

das ist kein aufgezeichnetes Makro?
mach das mal von Hand und zeichne dabei auf und vergleiche die Unterschiede
Kann nicht wirklich einen Unterschied feststellen..

Das ganze hat ja auch eine ganze Zeit funktioniert, irgendwann halt nicht mehr, obwohl keine Änderung stattgefunden hat..
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 
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..
Zitat:Der Fehler liegt sicher wo anderes.
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
Hallo Werner, DAnke

leider keine Besserung.

Habe den Teil mal in einer neuen Tabelle getestet, das funktioniert.
Den Teil von Werner musst du in der Datei, die abstürzt, probieren
Hallo Wexel,

Zitat: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!