Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
880to884
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
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblätter killen

Tabellenblätter killen
28.06.2007 12:44:48
Markus
Hallo,
ich habe eine Arbeitsmappe mit ca. 90 Blättern.
Ich möchte in der Arbeitsmappe alle Blätter ausser STAMM, Monat und Erstellen_Neu löschen.
(umfasst die monatliche Treibstoffabrechnung)
Die ca 50 - 100 Blätter werden anschliessend wieder neu erstellt.
Danke für eine Antwort
"Seppel"

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter killen
28.06.2007 12:47:58
Hajo_Zi
Hallo Markus,
gehe unter auf das Register rechte Maustaste, alle Auswählen und mit Strg und linker Maustaste die abwählen die nicht gelöscht werden sollen. Dann rechte Maustaste und löschen.

AW: Tabellenblätter killen
28.06.2007 12:54:51
AndrRo
Hallo Seppel,
anbei das Makro

Sub Löschen()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each blatt In ActiveWorkbook.Sheets
If (blatt.Name = "STAMM") = False And (blatt.Name = "Monat") = False And (blatt.Name = " _
Erstellen_Neu") = False Then
blatt.Delete
End If
Next blatt
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


gruss
Andreas

Anzeige
o.T. Danke, hat mir auch geholfen!
28.06.2007 14:28:29
Roland

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige