einfügen und löschen von Zeilen
13.07.2022 17:53:09
Zeilen
ich hab ein kleines bis mittelschweres Problem und mir fehlt leider die richtige Idee und das Knowhow dazu, es zu lösen.
Ich hab eine Relativ komplexe Exceldatei mit mehreren Blättern die aufeinander aufbauen.
Am Anfang steht ein Kundenstamm mit diversen Werten. Eine Zeile ein Kunde.
Darauf bauen mehrere Blätter auf mit unterschiedlichen Inhalten. (Buchhaltung, Terminplanung, Dokumentation etc.)
Jetzt möchte ich eine Zeile an beliebiger Stelle einfügen/löschen und das über fast alle Blätter und zwar über eine Schaltfläche.
Ohne VBA geht es mit den Gruppieren und dann die Zeile einfügen super, Aber wenn ich den Ablauf in VBA packe klappt es nicht mehr. Er fügt zwar im Kundenstamm eine neue Zeile ein aber auf den restlichen Blättern passiert nix.
Sub neuezeile()
Sheets(Array("Termin 2022", "Dokumentation", "Buchhaltung", "Kundenstamm")). _
Select
Sheets("Kundenstamm").Activate
ActiveCell.EntireRow.Insert
Sheets("Kundenstamm").Select
End Sub
liebe Grüße