Sheet löschen falls vorhanden & weiter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub sbSheetDel() Dim lshAll As Worksheet For Each lshAll in Sheets If lshAll.Name = "DATEN" Then Application.DisplayAlerts = False lshAll.Delete Application.DisplayAlerts = True Exit For End If Next 'ab hier Makro2

Hi
in dem Fall ist der einfachste Weg, das Makro anzuweisen bei dem Fehler, der entsteht wenn du versuchst, ein nicht vorhandenes Tabellenblatt zu löschen, einfach weiter zu machen. Denn es ist egal, ob das Blatt nicht da ist, weil es sowieso fehlt, oder ob es nicht da ist, weil du es gelöscht hast. Das Resultat ist das gleiche, daher


Application.DisplayAlerts = false
On Error Resume Next
Sheets("Daten").Delete
On Error Goto 0
Application.DisplayAlerts = true

wer das mit dem Ausschalten der Fehlerbehandlung als unsauber betrachtet oder die Fehlerbehandlung bereits anderweitig verwendet, der kann das dann auch so fehlerfrei machen:


dim sh as Worksheet
for each sh in Thisworkbook.Worksheets
if sh.Name = "Daten" then
Application.DisplayAlerts = false
sh.Delete
Application.DisplayAlerts = true
exit for
Next

Gruß Daniel

Dim TB As String TB = "Daten" If Not IsError(Evaluate(TB & "!A1")) Then If Sheets.Count > 1 Then Application.DisplayAlerts = False Sheets(TB).Delete Application.DisplayAlerts = True Else MsgBox "Es muss mind ein Blatt vorhanden sein" End If End If 'Dein Makro

Kleines Zitat aus der Hilfe:
Wenn Sie diese Eigenschaft auf False festlegen, legt Excel diese Eigenschaft auf True fest, wenn der Code abgeschlossen ist
https://docs.microsoft.com/de-de/office/vba/api/excel.application.displayalerts
Es gibt Eigenschaften, die sich automatisch bei Ende der Makroverarbeitung wieder auf den Standardwert zurückstellen und daher nicht zwingend im Code wieder zurückgesetzt werden müssen.
Dazu zählen ScreenUpdating und DisplayAlerts.
Einstellungen, die nach Makroende so wie eingestellt erhalten bleiben, sind Calculation und EnableEvents.
Das Erkennungsmerkmal zwischen "wird automatisch zurückgesetzt" und "bleibt so wie zuletzt eingestellt" könnte sein, dass alle Einstellungen, die ohne VBA nicht beeinflussbar sind, immer zurückgesetzt werden, und Einstellungen, die der Anwender auch über das Menü ändern kann, so bleiben.
(wobei das EnableEvents hier etwas zwiespältig ist, des gibt keine Menüfunktion, die es ändern kann, aber mit dem Button "Entwurfsmodus" eine Einstellung, die gleiches bewirkt)
Gruß Daniel

Sub Unit() Dim i As Integer For i = Sheets.Count To 2 Step -1 If Sheets(i).Name = "DATEN" Then Application.DisplayAlerts = False Sheets("DATEN").Delete Application.DisplayAlerts = True Exit For End If Next 'weiterer Code End Sub

Beliebteste Forumthreads (12 Monate)

Sheet löschen falls vorhanden & weiter

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread