Discussion:
alle ausgeblendeten Tabellenblätter löschen ?
(zu alt für eine Antwort)
jollina
2006-10-10 06:42:01 UTC
Permalink
Hallo alle

Ich habe eine Menge Exceldateien von jemandem übernommen.
In diesen Dateien befinden sich zum Teil bis zu 20 ausgeblendete
Tabellenblätter, die nicht mehr benötigt werden. Nun lassen sich diese
Tabellenblätter nicht alle auf einmal einblenden um sie zu löschen. Man muss
also eines nach dem anderen einblenden und dann löschen, was bei vielen
Dateien in der Summe recht mühsam ist. Gibt es eine Möglichkeit / Makro, wie
man alle ausgeblendeten Tabellenblätter einer Arbeitsmappe löschen kann (
oder mehrere zur Auswahl bekommt ) ?

Danke und Gruß

jollina
Christian Friedrich
2006-10-10 08:48:02 UTC
Permalink
Hallo jollina,

hier ein entsprechendes Makro:

Sub Ausgeblendete_Tabellenblaetter_loeschen()
Dim wksWorksheet As Worksheet
For Each wksWorksheet In ActiveWorkbook.Worksheets
If wksWorksheet.Visible <> xlSheetVisible Then wksWorksheet.Delete
Next wksWorksheet
End Sub
--
Mit freundlichen Grüßen

Christian Friedrich
Mitglied von Microsoft CLIP (Community Leader/Influencer Program)

Workstream.de http://www.workstream.de/ | http://www.e-workstream.com/
Post by jollina
Hallo alle
Ich habe eine Menge Exceldateien von jemandem übernommen.
In diesen Dateien befinden sich zum Teil bis zu 20 ausgeblendete
Tabellenblätter, die nicht mehr benötigt werden. Nun lassen sich diese
Tabellenblätter nicht alle auf einmal einblenden um sie zu löschen. Man muss
also eines nach dem anderen einblenden und dann löschen, was bei vielen
Dateien in der Summe recht mühsam ist. Gibt es eine Möglichkeit / Makro, wie
man alle ausgeblendeten Tabellenblätter einer Arbeitsmappe löschen kann (
oder mehrere zur Auswahl bekommt ) ?
Danke und Gruß
jollina
jollina
2006-10-11 04:43:01 UTC
Permalink
Hallo

Vielen Dank - funktioniert.

jollina
Post by Christian Friedrich
Hallo jollina,
Sub Ausgeblendete_Tabellenblaetter_loeschen()
Dim wksWorksheet As Worksheet
For Each wksWorksheet In ActiveWorkbook.Worksheets
If wksWorksheet.Visible <> xlSheetVisible Then wksWorksheet.Delete
Next wksWorksheet
End Sub
--
Mit freundlichen Grüßen
Christian Friedrich
Mitglied von Microsoft CLIP (Community Leader/Influencer Program)
Workstream.de http://www.workstream.de/ | http://www.e-workstream.com/
Post by jollina
Hallo alle
Ich habe eine Menge Exceldateien von jemandem übernommen.
In diesen Dateien befinden sich zum Teil bis zu 20 ausgeblendete
Tabellenblätter, die nicht mehr benötigt werden. Nun lassen sich diese
Tabellenblätter nicht alle auf einmal einblenden um sie zu löschen. Man muss
also eines nach dem anderen einblenden und dann löschen, was bei vielen
Dateien in der Summe recht mühsam ist. Gibt es eine Möglichkeit / Makro, wie
man alle ausgeblendeten Tabellenblätter einer Arbeitsmappe löschen kann (
oder mehrere zur Auswahl bekommt ) ?
Danke und Gruß
jollina
Loading...