Laufzeitfehler 1004
31.08.2016 08:57:55
Franz
ich habe folgende Sub.:
'Subroutine um Zellen nach unten zu klicken
Sub nachUnten()
Dim lngZeile As Long
lngZeile = Selection.Row
If lngZeile > 12 Then 'Grenze anpassen!!!
Rows(lngZeile).Cut
Rows(lngZeile + 2).Insert Shift:=xlDown
Rows(lngZeile + 1).Select
If Not lngZeile
Ab Zeile 13 beginnt ein Zellenbereich, der als Tabelle formatiert ist. Die Formatierung setzt sich von Zeile 13 - Zeile 20 fort. Wenn ich nun o.g. Sub anwende und die markierte Zeile von 13 bis 20 "runterklicke" ist alles okay. Sobald der formatierte Tabellenbereich aber endet und ich die Zeile bspw. noch weiter "runterklicken" möchte, gibt's eine Laufzeitfehlerausgabe. "Der Vorgang kann nicht abgeschlossen werden: Sie versuchen, einen Teil einer Tabellenzeile oder -splate auf eine Art zu ändern, die nicht unterstützt wird. Die kann eintreten, wenn versucht wird, Zellen innerhalb einer Tabelle, die andere Tabellenzellen in einer unerwartetenArt und Weise beeinträchtigen, neu anzuorden."
Kann man das irgendwie umgehen bzw. den formatierten Zellenbereich automatisch "verlängern", wenn es notwendig ist.