Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
180to184
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
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Prüfen ob ein Sheet existiert

Prüfen ob ein Sheet existiert
15.11.2002 10:00:12
Christian
Wie prüfe ich ob ein Sheet existiert ?
Bzw. Wie kann ich ein Sheet löschen falls es existiert ?

Bei folgendem Code hält das Programm an wenn "Daten" nicht vorhanden ist. Und das obwohl ich "On Error Resume Next" drin habe.


Application.DisplayAlerts = False
On Error Resume Next

Sheets("Daten").Activate
ActiveWorkbook.Sheets("Daten").Delete

On Error GoTo 0
Application.DisplayAlerts = True

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Prüfen ob ein Sheet existiert
15.11.2002 10:04:24
Monika Weber
Hallo Christian

Umfasst der Code noch mehr Zeilen? Bei mir läuft das einwandfrei durch. Möglicherweise liegt das Problem anderwo?

PS: Du kannst die Codezeilen zusammenfassen:
ActiveWorkbook.Sheets("Daten").Delete

Es liebs Grüessli aus der Schweiz
Monika


Re: Prüfen ob ein Sheet existiert
15.11.2002 10:05:41
Christian
Das sind noch mehr Zeilen.

Aber so funktionierts. Ist halt etwas umständlich.

Application.DisplayAlerts = False 'Meldung verhindern
Dim i As Integer
For i = 1 To Sheets.Count
If Sheets(i).name = "Daten" Then Sheets(i).Delete
Next i
Application.DisplayAlerts = True

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige