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

Blätter

Blätter
05.10.2004 15:37:45
Timmy
Hallöchen
Wieder einmal brauche ich euere Hilfe im Thema Makros. Irgendwie komme ich da nicht mehr weiter.
Gibt es eine Makro das es schafft alle Blätter in meiner Mappe zu löschen bis auf ein Bestimmtes? ODER Am Besten integriert in eine Abfrage: Falls es Blatt A gibt dann lösche Blatt A,B,C und mache weiter.....
Gruß
Timmy

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blätter
Uduuh
Hallo,
VBA gut? Das solltest du alleine schaffen.
for each wsh in worksheets
if wsh.name"MeinBlatt" then wsh.delete
next wsh
Gruß aus'm Pott
Udo
AW: Blätter
ransi
hallo timmy
versuch mal so:
Public

Sub blatt_wech()
Dim i As Integer
Application.ScreenUpdating = False
For i = Worksheets.Count To 1 Step -1
If Worksheets(i).Name <> "Tabelle1" Then Worksheets(i).Delete
Next
Application.ScreenUpdating = True
End Sub

ransi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige