Office: Einfügen Neuer Zeile mit Formatierung und Formel

Hallo liebe Leute,

ich habe folgendes Problem:
Wir wollen über Excel Rechnungen schreiben. Um das ganze "Idiotensicher" zu machen habe ich auch in der Mappe sämtliche Zellen, die nicht geändert werden sollen gesperrt, die zu änderten nicht gesperrt und zum Schluss einen Blattschutz draufgeschmissen.
Daraufhin stellte sich aber heraus, dass es nicht mehr möglich ist beim Rechnungsteil der Positionen keine zusätzliche Zeilen hinzuzufügen oder überschüssige zu löschen.
Also kam von meinem Freund nur: "Mach mal Makro, das geht sicher"

Jetzt besteht das Problem, dass ich selbst VBA nie gelernt habe und dadurch nur über Google mir ein bzw. zwei Makros zusammen gestoppelt habe.
Leider fehlt halt noch etwas und dafür würde ich jetzt eure Hilfe benötigen.

Den Teil, den es Betrifft, sieht man hier:




Betreffen tut es die markierten Zellen.
Die Zellen B-E sind zusammengefügt (blau)
Die Zellen F & G sind zusammengefügt (orange)
Die Zellen H & I sind zusammengefügt (grün)
In H&I befindet sich eine WENN -Funktion

Alles zusammen soll beim Einfügen der Zeile mit übernommen werden und die eingefügte Zeile sollte noch unter der markierten eingefügt werden. (Excel fügt die Zeilen ja standardmäßig immer oben drüber ein)

Meine Makros schauen wie folgt aus:
Code:

Das ganze läuft auf Windows 10 64bit, MS Office Excel 2019 64bit.

Wichtig noch zu erwähnen ist, dass die eingefügte Zelle nicht gesperrt ist.

Sollten noch Informationen fehlen, bitte melden.

Für die Hilfe bedanke ich mich schon mal im Voraus.
Grüße Hexerl

:)

 

lasse bei Schutz
Zeilen einfügen
Zeilen löschen
zu
Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hallo Hexerl,

hier mal ein praktisches Beispiel von mir (welches eigentlich als Vorarbeit von Dir hätte kommen sollen!) - aber bei so miesem Feiertagswetter mache ich mal 'ne Ausname.

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,

danke für diene schnelle Antwort!

Mein Excel Sheet habe ich jetzt soweit umgebaut, dass ich dein Makro einbauen konnte.
Die Zeile wird auch unterhalb eingefügt. Danke dafür!

ABER leider wird die Formel in G nicht mitübernommen.

Es liegt folgendes vor:




Die gelb markierten Zellen sind diejenigen, die im Blattschutz verwendet werden können.
Die Zelle mit der Formel ist und muss auch schreibgeschützt bleiben.

Wenn ich das Makro verwende, wird mir die Zeile eingefügt ohne Formel und es kommt folgende Fehlermeldung:





Leider komme ich nicht auf den Fehler

Vielen Dank schon mal und Gute Nacht
Grüße Hexerl

 

Hallo Hexerl,

zeige doch Dein Kunstwerk mal in Natura, mein Excel ist auf Bilder nicht gut zu sprechen (natürlich mit/hoffentlich anonymisierten Daten).

Gruß von Luschi
aus klein-Paris

 

Im Anhang gewünschtes betreffendes Dokument.

Natürlich anonymisiert

 

Hallo Hexerl,

hier mein nächster Versuch.

Gruß von Luschi
aus klein-Paris

 

Guten Abend Luschi!

Vielen lieben Dank für deine Bemühungen!!

Es funktioniert alles wie vom werten Lebensgefährten gewünscht *Smilie

Ich wünsche noch ein angenehmen Restwochenende

Grüße Hexerl