Tabellenblatt per Userform löschen

Guten Abend
Ich versuche seit längerem ab einer UserForm ein Excel-Tabellenblatt aus der Arbeitsmappe rauszulöschen.
d.h. der User kann auf einer UserForm3 eine Commandbutton betätigen.
dann soll das Tabellenblatt (Name steht in der Variable "Blatt") selektiert und (wenn möglich ohne Gegenfrage) gelöscht werden.
im Anschluss an diese Delete-Funktion soll wieder das Tabellenblatt1 selektiert werden.
Leider schaff ich das mit dem folgenden Code nicht:

Private Sub CommandButton2_Click()
UserForm3.Hide 'zuerst wird UserForm3 wieder geschlossen
Sheets(Blatt).Select
ActiveWindow.SelectedSheets.Delete
Sheets("Tabelle1").Select
End Sub

Bei mir wird zwar das entsprechende Blatt (sofern vorhanden) selektiert. Es erscheint dann aber eine Meldung: "wollen Sie wirklich Tabellenblatt löschen ?)
wenn ich dann auch hier auf Löschen klicke, so wird das Tabellenblatt zwar gelöscht, aber aus mir unbekannten Gründen wieder die UserForm3 angezeigt.
Frage:
wie kann ich das Tabellenblatt ohne weitere Gegenfrage löschen ?
danach soll Userform3 nicht mehr erscheinen, sondern es soll wieder das Tabellenblatt1 selektiert werden.
Besten Dank für Eure Tips!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub CommandButton1_Click() Dim Blatt As String Blatt = "Tabelle2" 'anpassen Unload Me 'zuerst schliesen If SheetExist(Blatt) Then Application.DisplayAlerts = False Sheets(Blatt).Delete Sheets("Tabelle1").Select Application.DisplayAlerts = True End If End Sub Private Function SheetExist(ByVal sheetName As String, Optional Wb As Workbook) As Boolean Dim wks As Worksheet On Error GoTo ERRORHANDLER If Wb Is Nothing Then Set Wb = ThisWorkbook For Each wks In Wb.Worksheets If LCase(wks.Name) = LCase(sheetName) Then SheetExist = True: Exit Function Next ERRORHANDLER: SheetExist = False End Function

Option Explicit Dim Blattname As String Private Sub CommandButton2_Click() Blattname = "abc" Hide With Application .EnableEvents = False If Sheets.Count > 1 Then ' 1 Blatt muss bleiben .DisplayAlerts = False Sheets(Blattname).Delete .DisplayAlerts = True End If Sheets("Tabelle1").Select .EnableEvents = False End With End Sub

Beliebteste Forumthreads (12 Monate)

Tabellenblatt per Userform löschen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblatt per Userform löschen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread