mit
ActiveSheet.Rows("6:6").Select
ActiveSheet.Rows("6:6").Copy
ActiveSheet.Rows("5:5").Insert Shift:=xlDown
Application.CutCopyMode = False
füge ich eine Zeile ein. Klappt!
Ich lege einen Blattschutz auf die Datei: Klappt nicht mehr, Meldung:
'Die INsert-Methode des Range-Objektes konnte nicht ausgeführt werden."
Was wäre die Alternative?
Sänk jiu!
Grüssle
Dirk