Anzeige
Archiv - Navigation
1128to1132
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
Inhaltsverzeichnis

Scheets löschen per Makro | Herbers Excel-Forum

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige