Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1128to1132
1128to1132
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Scheets löschen per Makro | Herbers Excel-Forum

Forumthread: Scheets löschen per Makro

Scheets löschen per Makro
14.01.2010 14:34:54
Joachim

Hi,
wie kann ich denn mit einem Makro alle Tabellenblätter löschen, die mit "Plan" beginnen ?
(die ersten 4 Zeichen)
Danke
Joachim

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Scheets löschen per Makro
14.01.2010 14:38:06
Daniel
HI
dim SH as Worksheet
application.Displayalerts = False
For Each SH in activeworkbook.Worksheets
if SH.Name like "Plan*" then SH.Delete
next
application.Displayalerts = true
Gruß, Daniel
achtung, bricht das Makro innerhalb der Schleife mit einem Fehler ab, bleiben die DisplayAlerts (Systemmeldungen) abgeschaltet und müssen von Hand im Direktfenster wieder aktiviert werden.
Gruß, Daniel
Anzeige
Danke, perfekt :-) owT
14.01.2010 14:49:08
Joachim
AW: Scheets löschen per Makro
14.01.2010 14:57:53
Nix
Display Alerts schalten sich automatisch wieder ein (siehe Hilfe)
AW: Scheets löschen per Makro
14.01.2010 14:40:08
JoWE
Hallo Joachim,
hier ein Rumpf-Makro:
For Each ws In Worksheets
If left(ws.Name,4)="Plan" Then
ws.Delete
End If
Next
Gruß
Jochen
Anzeige
AW: Scheets löschen per Makro
14.01.2010 14:42:42
Hajo_Zi
Hallo Joachim,
ungetestet 
Option Explicit
Sub Joachim()
Dim Loi As Long
Application.DisplayAlerts = False
For Loi = Worksheets.Count To 1 Step -1
If UCase(Left(Worksheets(Loi).Name, 4)) = "PLAN" Then Worksheets(Loi).Delete
Next Loi
Application.DisplayAlerts = True
End Sub

Anzeige
AW: diese Scheet 'Sheets" - o.w.T
14.01.2010 14:42:43
JoWE
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige