Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Neues Tabellenblatt

Neues Tabellenblatt
13.08.2019 10: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
Anzeige
AW: Neues Tabellenblatt
13.08.2019 10: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 10: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
Anzeige
AW: Neues Tabellenblatt
13.08.2019 17: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 17:24:16
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige