Private Sub CommandButton1_Click()
Worksheets("Tabelle3").Delete
End Sub
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Worksheets("Tabelle3").Delete
Application.DisplayAlerts = True
End Sub
Sub Tabelle_weg()
On Error Resume Next 'Für den Fall, dass die Tabelle nicht da ist
Application.DisplayAlerts = False 'schaltet die Nachfrage aus
ActiveWorkbook.Sheets("Tabelle2").Delete
Application.DisplayAlerts = True 'und wieder ein
End Sub
On Error Resume Next
>> Ist für den Notfall, falls das Tabellenblatt mal nicht da ist, dann läuft das Makro OHNE Fehlermeldung weiter
Application.DisplayAlerts = False
>> Wenn du ein Tabellenblatt weglöschst, kommt normal eine Meldung, ob du das auch wirklich möchtest.. Diese Meldung wird hierdurch abgeschaltet
ActiveWorkbook.Sheets("Tabelle2").Delete
>> Das eigendliche wegloschen des Tabellenblattes (aus der aktuellen Datei wird hier Tabelle2) gelöscht
Application.DisplayAlerts = True
>> schaltet die Warnungen wieder ein.