Tabellenblätter killen

Forumthread: Tabellenblätter killen
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Tabellenblätter killen

28.06.2007 14: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

AW: Tabellenblätter killen

28.06.2007 14:47:58

Hajo_Zi
AW: Tabellenblätter killen

28.06.2007 14:54:51

AndrRo
o.T. Danke, hat mir auch geholfen!

28.06.2007 16:28:29

Roland

AW: Tabellenblätter killen

28.06.2007 14: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 14: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