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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen