Tabellenblätter löschen

Forumthread: Tabellenblätter löschen
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Tabellenblätter löschen

12.05.2014 22:51:19

Chrissi

Hallo,
ich habe versucht eine Datei zu kopieren und in der Kopie überflüssige Tabellenblättern zu entfernen. Leider hat das mit dem Makrorekorder nicht so gut geklappt. Kann mir jemand helfen? Wie kann ich das mit VBA realisieren?
Grüße und Dank
Chrissi

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellenblätter löschen

12.05.2014 22:53:49

Spenski
AW: Tabellenblätter löschen

12.05.2014 22:57:04

Chrissi
AW: Tabellenblätter löschen

13.05.2014 00:02:11

Gerd
AW: True statt 2. False o.r.T.

13.05.2014 00:05:45

Gerd
AW: Tabellenblätter löschen

13.05.2014 23:21:30

Christian

AW: Tabellenblätter löschen

12.05.2014 22:53:49

Spenski

wie definierst du die überflüssigen tabellenblätter?
gruss

AW: Tabellenblätter löschen

12.05.2014 22:57:04

Chrissi

Hallo Spenski,
gut wäre, wenn ich angeben könnte, welche Tabellenblätter nicht gelöscht werden sollen, also Tabelle 1, Tabelle3 etc.
Grüße
Chrissi

AW: Tabellenblätter löschen

13.05.2014 00:02:11

Gerd

Hallo Chrissi!

Sub test()
Dim Wsh As Worksheet
Application.DisplayAlerts = False
For Each Wsh In ThisWorkbook.Worksheets
Select Case Wsh.Name
Case "Tabelle1", "Tabelle3"
'do nothing
Case Else
Wsh.Delete
End Select
Next
Application.DisplayAlerts = False
End Sub

Gruß Gerd

AW: True statt 2. False o.r.T.

13.05.2014 00:05:45

Gerd

Sorry!
Gruß Gerd

AW: Tabellenblätter löschen

13.05.2014 23:21:30

Christian

Hallo Gerd,
ich danke dir. Funktioniert super.
Liebe Grüße
Chrissi