Ich habe auf der TB1 eine Vorlage. Diese Vorlage kopiere ich in die TB2. Die Vorlage kann mehrmals eingefügt werden (Button mehrmals betätigen). Wie kann ich die eingefügte Vorlage wieder rückgängig machen oder löschen, wenn ich zu viel auf den Button gedrückt habe?
Option Explicit
Sub Schaltfläche1_Klicken()
Dim Vorlage As String
Dim ZelleLinksObenVorlage As String
Dim ZelleRechtsUntenVorlage As String
Dim SpalteKopie As String
Dim ZeileKopie As Integer
Dim Kopie As String
Dim AbstandEintrag As Integer
On Error GoTo Ende1
Application.ScreenUpdating = False
Kopie = ActiveSheet.Name
' *** Anweisung für das Kopieren von der Tabelle "Vorlage1" ***
' Feste Angaben für das Kopieren der Tabelleninhalte
Vorlage = "Tabelle1"
ZelleLinksObenVorlage = "A1" '
ZelleRechtsUntenVorlage = "F10"
SpalteKopie = "A"
AbstandEintrag = 11
ZeileKopie = Sheets(Kopie).Range(SpalteKopie & "1")
If ZeileKopie
Danke im Voraus für die HilfeGrüsse Sandja