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 "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.
Anzeige