Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
352to356
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
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sheets löschen

Sheets löschen
18.12.2003 14:35:32
Sabine
Hallo ihr,

ich habe ein kleines Problem ;)

Ich möchte gern beim öffnen eines Excel-Dokumentes alle Sheets automatisch löschen lassen, die den Namen "Sheet" beinhalten.

gibt es hierfür eine Möglichkeit ?

Dank schon im voraus !

Sabine

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheets löschen
18.12.2003 14:45:16
PeterW
Hallo Sabine,

in Workbook_open folgender Code sollte das erledigen (du musst noch den Fahler abfangen, dass kein Blatt anders als Sheet heißt - aber mit VBA gut dürfte das kein Problem sein):

Dim wks As Worksheet
Application.DisplayAlerts = False
For Each wks In Worksheets
If InStr(1, wks.Name, "Sheet") > 0 Then wks.Delete
Next
Application.DisplayAlerts = True

Gruß
Peter
AW: Sheets löschen
18.12.2003 14:58:42
Sabine
Hi Peter,

vielen Dank für deine schnelle Hilfe !

Gibt es evtl. eine Möglichkeit, das ganze dann automatisch ohne Abfrage abzuspeichern ?

Lieben Gruß,
Sabine
Anzeige
AW: Sheets löschen
18.12.2003 16:56:59
PeterW
Hallo Sabine,

wenn du meinst nach dem Löschen der Blätter dann hänge die Zeile an:
ThisWorkbook.Save

Gruß
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige