Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: alles in einer Arbeitsmappe bis auf Tab1 löschen

alles in einer Arbeitsmappe bis auf Tab1 löschen
30.07.2007 08:42:14
Sabine
Hallo!
wie kann ich per makro alle vorhandenen Blätter bis auf Tabelle 1 löschen?
lg

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alles in einer Arbeitsmappe bis auf Tab1 löschen
30.07.2007 08:50:16
Hajo_Zi
Hallo Sabine,

Option Explicit
Sub Sabine()
Dim LoI As Long
Application.DisplayAlerts = False
For LoI = Worksheets.Count To 1 Step -1
If Worksheets(LoI).Name  "Tabelle1" Then Worksheets(LoI).Delete
Next LoI
Application.DisplayAlerts = True
End Sub



Anzeige
AW: alles in einer Arbeitsmappe bis auf Tab1 löschen
Ingo

Sub alle_loeschen()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name  "Tabelle1" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub


mfG
Ingo Christiansen

Anzeige
AW: alles in einer Arbeitsmappe bis auf Tab1 löschen
30.07.2007 09:04:00
Sabine
hallo! im prinzip funktionierts... nur das blatt graph2 wehrt sich und bleibt...

AW: alles in einer Arbeitsmappe bis auf Tab1 löschen
30.07.2007 09:08:00
Sabine
komisch... in einer anderen arbeitsmappe wird alles ganz brav gelöscht...

AW: alles in einer Arbeitsmappe bis auf Tab1 löschen
30.07.2007 09:14:00
Hajo_Zi
Hallo Sabine,
ich für meinen Teil lehne es ab über das Internet auf fremde Rechner zu schaen. Aus diesem Grunde kann ich zu Denem Problem nichts genaues schreiben nur vermuten. Ist die Tabelle vielleicht geschützt?
Gruß Hajo

Anzeige
wichtiger Nachtrag zu bisherigen Lösungen!
30.07.2007 09:11:00
Matthias
Hallo
Deine Frage war alle vorhandenen Blätter löschen
Wichtig!
Um auch wirklich alle Blätter zu löschen (auch Diagramme) musst Du statt Worksheets -> Sheets schreiben)
Option Explicit

Sub Loeschen() 'Matthias L
Dim X As Long
Application.DisplayAlerts = False
For X = Sheets.Count To 1 Step -1
If Sheets(X).Name  "Tabelle1" Then Sheets(X).Delete
Next
Application.DisplayAlerts = True
End Sub


Userbild

Anzeige
AW: wichtiger Nachtrag zu bisherigen Lösungen!
30.07.2007 09:20:59
Sabine
danke funktioniert!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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