Neues Tabellenblatt

Forumthread: Neues Tabellenblatt
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Neues Tabellenblatt

Neues Tabellenblatt

13.08.2019 12:25:13

Stephan

Hallo Zusammen,
ich möchte in meiner Datei ein Tabellenblatt löschen. Da mehrere Leute mit der Datei arbeiten, ist es nicht immer vorhanden. Sofern es nicht vorhanden ist, erhalte ich eine Fehlermeldung, da er das Tabellenblatt nicht findet. Kann ich den Makro so gestalten, dass wenn das Blatt nicht vorhanden ist, keine Fehlermeldung kommt? Freue mich über Feedback.
Grüße
Stephan
Folgendes Makro verwende ich derzeit:

Sub Tabellenblatt_löschen()
Application.DisplayAlerts = False
Sheets("Tabelle1").Delete
Application.DisplayAlerts = True
End Sub

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Neues Tabellenblatt

13.08.2019 12:28:28

Werner
AW: Neues Tabellenblatt

13.08.2019 12:33:19

ChrisL
AW: Neues Tabellenblatt

13.08.2019 19:16:46

Stephan
Gerne u. Danke für die Rückmeldung. o.w.T.

13.08.2019 19:24:16

Werner

AW: Neues Tabellenblatt

13.08.2019 12:28:28

Werner

Hallo Stephan,
so:

Sub Tabellenblatt_löschen()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Tabelle1" Then
Application.DisplayAlerts = False
Worksheets("Tabelle1").Delete
Application.DisplayAlerts = True
Exit For
End If
Next ws
End Sub

Gruß Werner

AW: Neues Tabellenblatt

13.08.2019 12:33:19

ChrisL

Hi Stephan
Fast wie Werner...

Sub Tabellenblatt_löschen()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Tabelle1" Then
If ThisWorkbook.Sheets.Count = 1 Then
MsgBox "das letzte Blatt kann nicht gelöscht werden"
Exit Sub
End If
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
Exit For
End If
Next ws
End Sub

cu
Chris

AW: Neues Tabellenblatt

13.08.2019 19:16:46

Stephan

Hallo Zusammen,
ich danke euch. Schönen Abend.
Grüße
Stephan

Gerne u. Danke für die Rückmeldung. o.w.T.

13.08.2019 19:24:16

Werner