Zeilen einfügen bzw. löschen über eine Befehlsschaltfläche

Erstellen Sie die folgenden beiden Makros über EXTRAS/MAKRO/MAKROS. Geben Sie dort den Namen für das Makro ein (hier ZeileEinfügen) und schreiben Sie dann den Code zwischen die beiden Zeilen "Sub ZeileEinfügen" und "End Sub"

Makro1:

Sub ZeileEinfügen()

Rows(ActiveCell.Row).Insert Shift:=xlDown

End Sub

Makro2:

Sub ZeileLoeschen()

Rows(ActiveCell.Row).Delete Shift:=xlUp

End Sub

Nachdem Sie die beiden Makros erstellt haben, brauchen Sie diese nur noch an eine Befehlsschaltfläche zu knüpfen. Klicken Sie im Menü EXTRAS auf ANPASSEN und dort auf die Registerkarte BEFEHLE. Scrollen Sie im linken Fenster etwas nach unten. Sie finden dort den Punkt MAKROS. Ziehen Sie nun den "Smiley" auf der rechten Seite an den gewünschten Platz in der Symbolleiste.

Klicken Sie nun mit der rechten Maustaste auf die eingefügte Befehlsschaltfläche und ändern Sie deren Namen.

Danach wählen Sie ganz unten "Makro zuweisen" aus und markieren das entsprechende Makro das zugewiesen werden soll.

Diesen Vorgang wiederholen Sie ein zweites Mal für die Schaltfläche die Zeilen löschen soll.

Das Makro "ZeilenEinfügen" fügt eine Zeile oberhalb der Aktiven Zelle bzw. Zeile ein. Mit dem zweiten Makro wird die aktive Zeile gelöscht.