Da ich hierzu zum ersten mal seit 3 Jahren nichts über google gefunden habe beschreibe ich mal mein Problem und die Lösung dazu.
Hatte folgendes Problem, bei Zeile einfügen via VBA, wenn in einem Tabellenblatt Gruppierungen sind und diese Teilweise reduziert sind.
Dann kam folgender Fehler:
Laufzeitfehler '2147417848 (80010108)'
Automatisierungsfehler
Das aufgerufene Objekt wurde von den Clients getrennt
Habe dann auf verdacht Shift:=xlDown auskommentiert
Meine Frage dazu ist, kann oder darf man das auch weg lassen?
Hier der Code:
Private Sub InsertRow()
Dim row, nextrow As Variant
row = ActiveCell.row()
nextrow = row + 1
Rows(row).Copy
Rows(nextrow).Insert 'Shift:=xlDown
Und noch eine Beispiel Datei: https://www.herber.de/bbs/user/147652.xlsm
Schöne Woche noch Frank