Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sheets löschen

Forumthread: 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
Anzeige

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
Anzeige
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
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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige