Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
812to816
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle TB löschen bis auf angegebenen

Alle TB löschen bis auf angegebenen
27.10.2006 18:42:55
Andreas
Hallo,
ich möchte alle Tabellenblätter bis auf ein paar
bestimmte die ich angebe löschen.
Wie kann man das in VBA schreiben?
Vielen Dank im voraus.
Gruß
Andreas W.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle TB löschen bis auf angegebenen
27.10.2006 18:47:59
chris
Hallo Andreas, das geht so.
Option Explicit

Sub löschen()
Dim mysheet As Worksheet
Application.DisplayAlerts = False
For Each mysheet In ActiveWorkbook.Worksheets
If mysheet.Name = "test" Then GoTo nex
mysheet.Delete
nex:
Next
Application.DisplayAlerts = True
End Sub

AW: Alle TB löschen bis auf angegebenen
27.10.2006 18:51:23
Andreas
Hallo Chris,
das ging aber schnell !! ;-)
Kann man da auch mehrere Tabellennamen angeben
die NICHT gelöscht werden sollen?
Gruß
Andreas W.
Hat sich erledigt !!!
27.10.2006 20:02:21
Andreas
;-)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige