Abfragen, ob Worksheet noch besteht

Hallo
Mit nachfolgendem Code lösche ich alle Tabellen, bei denen in Zelle A1 "löschen" steht.
Am Ende wähle, die anfangs aktive Tabelle wieder an.
Mein Problem: Es kann der Fall sein, dass auch die anfangs aktive Tabelle gelöscht wird; dann ist es natürlich nicht möglich, diese wieder anzuwählen.
Als "Ersatz" möchte ich in diesem Fall die erste Tabelle des Worksheets anwählen.
Wie kann ich dies in meinen Code integrieren?
Danke für Feedback, Peter


Sub WS_löschen()
' Druckbereich in allen Worksheets des aktiven Workbooks
' markieren
Dim objWorksheet As Worksheet, objSheet As Worksheet
Set objSheet = ActiveSheet
Application.ScreenUpdating = False
For Each objWorksheet In ActiveWorkbook.Worksheets
Application.DisplayAlerts = False  'damit das Löschen der Tabellen
'nicht  bestätigt werden muss
With objWorksheet
If .Range("A1") = "löschen" Then
.Delete
End If
End With
Next
Application.DisplayAlerts = True
objSheet.Activate
Application.ScreenUpdating = True
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub WS_löschen() ' Druckbereich in allen Worksheets des aktiven Workbooks ' markieren Dim objWorksheet As Worksheet, objSheet As Worksheet Set objSheet = ActiveSheet Application.ScreenUpdating = False For Each objWorksheet In ActiveWorkbook.Worksheets Application.DisplayAlerts = False 'damit das Löschen der Tabellen 'nicht bestätigt werden muss With objWorksheet If .Range("A1") = "löschen" Then .Delete End If End With Next Application.DisplayAlerts = True On Error GoTo ERRHDL objSheet.Activate Application.ScreenUpdating = True Exit Sub ERRHDL: Sheets(1).Activate Application.ScreenUpdating = True End Sub

Sub WS_löschen() Dim objWorksheet As Worksheet, objSheet As Worksheet Set objSheet = ActiveSheet Application.ScreenUpdating = False For Each objWorksheet In ActiveWorkbook.Worksheets Application.DisplayAlerts = False With objWorksheet If .Range("A1") = "löschen" Then If .Name = objSheet.Name Then Worksheets(1).Select .Delete End If End With Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

Sub WS_löschen() ' Druckbereich in allen Worksheets des aktiven Workbooks ' markieren Dim objWorksheet As Worksheet, objSheet As Worksheet, BlattGelöscht As Boolean, Name Set objSheet = ActiveSheet Name = ActiveSheet.Name Application.ScreenUpdating = False For Each objWorksheet In ActiveWorkbook.Worksheets Application.DisplayAlerts = False 'damit das Löschen der Tabellen 'nicht bestätigt werden muss With objWorksheet If .Range("A1") = "löschen" Then If .Name = Name Then BlattGelöscht = True .Delete End If End With Next If BlattGelöscht = True Then Sheets(1).Select Else: Sheets(Name).Select End If Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Abfragen, ob Worksheet noch besteht

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread