Hallo zusammen,

ich bin noch sehr unerfahren in VBA und bräuchte eure Hilfe. Ich würde gerne mittels eines Toggle Buttons eine Zeile kopieren und darunter einfügen. Das habe ich mit diesem Code ganz gut umsetzen können. 

  Private Sub CommandButton1_Click()
    Rows("328:331").Copy
    CommandButton1.TopLeftCell.EntireRow.Insert
    Application.CutCopyMode = False
  End Sub

Ich würde jedoch gerne mehrere Toggle Buttons einfügen, welche die gleiche Funktion besitzen. Durch das benutzen des CommandButton1 wird jedoch der Zeilenbereich für den nächsten CommandButton verschoben. Der Code für den nächsten Button sieht bei mir bisher so aus:

  Private Sub CommandButton3_Click()
    Rows("337:340").Copy
    CommandButton1.TopLeftCell.EntireRow.Insert
    Application.CutCopyMode = False
  End Sub

Falls ich jedoch jetzt den CommandButton1 zweimal drücke müssten nicht die Zeilen ("337:340") sondern die Zeilen ("346:349") für CommandButton3 anfgesprochen werden. Wie könnte ich dieses Problem lösen? Kann ich da einen Counter einbauen und wie würde das gehen?

Gleichzeitig hätte ich gerne einen Button, welcher die. Ausführung des Buttons davor umkehrt. Zum Beispiel hat der Anwender den CommandButton1 zu oft gedrückt. Folglich stehen jetzt 3 Zeilen zu viel in diesem Bereich. Mit CommandButton2 würde ich gerne die eingefügten Zeilen wieder Löschen. Anwendbar muss das auch für die CommandButton 4 ,5 6 usw. sein. 

Ähnliche Probleme habe ich in den folgenden Foren gefunden aber leider waren diese ohne Lösung.

  - https://www.herber.de/forum/archiv/1764to1768/1765818_KopierenEinfuegen_einer_Zeile_mit_Button.html

  - https://www.vba-forum.de/View.aspx?ziel=60029-Kopieren/Einfügen_einer_Zeile_mit_Active_X_Button

Vielen Dank für eure Hilfe im Voraus.