Microsoft Excel

Herbers Excel/VBA-Archiv

Scheets löschen per Makro | Herbers Excel-Forum


Betrifft: Scheets löschen per Makro von: Joachim
Geschrieben am: 14.01.2010 14:34:54

Hi,

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

Danke

Joachim

  

Betrifft: AW: Scheets löschen per Makro von: Daniel
Geschrieben am: 14.01.2010 14:38:06

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


  

Betrifft: Danke, perfekt :-) owT von: Joachim
Geschrieben am: 14.01.2010 14:49:08




  

Betrifft: AW: Scheets löschen per Makro von: Nix
Geschrieben am: 14.01.2010 14:57:53

Display Alerts schalten sich automatisch wieder ein (siehe Hilfe)


  

Betrifft: AW: Scheets löschen per Makro von: JoWE
Geschrieben am: 14.01.2010 14:40:08

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


  

Betrifft: AW: Scheets löschen per Makro von: Hajo_Zi
Geschrieben am: 14.01.2010 14:42:42

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
GrußformelHomepage


  

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





Beiträge aus den Excel-Beispielen zum Thema "Scheets löschen per Makro"