wie kann ich erreichen dass per klick das erste tabellenblatt (d.h das ganz links) aus dem Register gelöscht wird und gleichzeitig ein neues Blatt inkl. Formatierung aus Vorlage hinten angehängt wird.
Application.DisplayAlerts = False
Sheets(1).Delete
Sheets.Add After:=Sheets(Sheets.Count)
Application.DisplayAlerts = True
Gruß Matthias
Sub t()
Application.ScreenUpdating = False
Worksheets("Vorlage").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "neuer Name"
On Error Resume Next
Application.DisplayAlerts = False
Worksheets(1).Delete
Application.DisplayAlerts = True
End Sub