Thema: Zeile einfügen | Herbers Excel-Forum

Hallo zusammen,
wieder mal gesucht, aber nichts passendes gefunden.
Habe einen Programmcode gefunden aber der ist nicht die beste Wahl.
Ist es möglich die letzte beschriebene Zeile ab A12 zu suchen und dann eine neue leere Zeile A1-X16 mit der gleichen Formatierung untendrann einzufügen ? Das löschen sollte auch so funktionieren.
Eine Beispieltabelle habe ich angehängt
https://www.herber.de/bbs/user/65737.xls
Mit freundlichen
Grüßen Manfred

Hallo Manfred,
teste doch mal folgendes Makro :

VBA-Code:

Sub NeueZeileAnfuegen()     Dim rngZelle As Range     Set rngZelle = [A12].End(xlDown)     With rngZelle.EntireRow         .Copy         .Offset(1).Insert Shift:=xlDown         .Offset(1).ClearContents     End With End Sub HINWEIS : Das Makro geht davon aus, dass in Spalte A aller gelben Zeilen ein Wert eingetragen ist, ansonsten wird unterhalb der Zeile "Bemerkungen" kopiert ! Gruß, NoNet Excel-Beispiele Zeile einfuegen und Formeln und Werte uebernehmen Datum in Fusszeile einfuegen Nach jedem 5. Zeichen ein Leerzeichen einfuegen Kommentare in geschuetzte Tabellen einfuegen Trennlinie in Kontextmenue einfuegen Zeilen oberhalb der markierten Zellen einfuegen Grafik einfuegen wenn Wert in A1 unter eine Grenze sinkt Benutzerdefiniertes Symbol in neue Symbolleiste einfuegen Bei Doppelklick Textbox mit Text einfuegen Menuepunkte zum Einfuegen und Loeschen von Zeilen hinzufuegen