|
Hallo Forum
dieser nachfolgende Code funktioniert eig. einwandfrei:
Sub ZeileEinfuegen()
Cells.Find(What:="XX", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.EntireRow.Offset(-4, 0).Copy
ActiveCell.EntireRow.Offset(-2, 0).Insert Shift:=xlShiftDown
Application.CutCopyMode = False
End Sub
Wenn ich jedoch zuvor an einer beliebigen Stelle in meinem Tabellenblatt etwas geschrieben habe. Mich nach dem schreiben noch in der Zelle befinde und dann das Makro ausführe bekomme ich folgenden Laufzeitfehler: "Die Methode Insert für das Objekt Range ist fehlgeschlagen".
Excel verweist als Ursache für den Fehler auf die Zeile: ActiveCell.EntireRow.Offset(-2, 0).Insert Shift:=xlShiftDown
Warum??
PS: Excel hängt sich komplett auf und ich mus über den TaskManager das Programm neustarten.
|