AW: Button Löschen
20.07.2021 11:47:38
Stefan
Hallo KK
Application.DisplayAlerts = False 'Löschen ohne Nachfrage
ActiveWorkbook.Worksheets(1).Delete 'Tabellenblatt1 löschen
ActiveWorkbook.Worksheets(2).Delete 'Tabellenblatt2 löschen
ActiveWorkbook.Worksheets(3).Delete 'Tabellenblatt3 löschen
Application.DisplayAlerts = True 'Nachfragen wieder erlauben
In deinen Code einfügen und Button drücken.
Es werden immer die 3 ersten vorhandenen Tabellenblätter gelöscht, bis nichts mehr übrig ist.
Falls du nur Tabellenblätter mit bestimmten Namen löschen willst
Application.DisplayAlerts = False 'Löschen ohne Nachfrage
ActiveWorkbook.Worksheets("1Nameeinfügen").Delete 'Tabellenblatt1 löschen
ActiveWorkbook.Worksheets("2Nameeinfügen").Delete 'Tabellenblatt2 löschen
ActiveWorkbook.Worksheets("3Nameeinfügen").Delete 'Tabellenblatt3 löschen
Application.DisplayAlerts = True 'Nachfragen wieder erlauben
Gruß
Stefan