ich möchte über der aktuellen Cursorposition eine Zeile einfügen und die Zeile 4 dort hinein kopieren. Die Zeile 4 ist ausgeblendet.
...
Worksheets("LH").Rows(ActiveCell.Row).Insert
Worksheets("LH").Rows(4).Copy Destination:=Worksheets("LH").Rows(ActiveCell.Row)
Worksheets("LH").Rows(ActiveCell.Row).Hidden = False
ActiveCell.Select
...
Das funktioniert solange die Tabelle nicht gefiltert ist. Dann erhalte beim Ausführen der zweiten Codezeile den Laufzeitfehler 1004 "Keine Zellen gefunden".
Hat jemand eine Idee?
Vielen Dank
André