Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1280to1284
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
Inhaltsverzeichnis

Sheets(i).Delete

Sheets(i).Delete
23.10.2012 13:51:29
Maximilian
Hallo,
wenn ich in einer Schleife alle Sheets bis aus den ersten löschen möchte, mache ich folgendes:
    i = Sheets.Count
Do While i > 1
Sheets(i).Delete
i = i - 1
Loop

Leider frägt er mich nur jedes mal, ob ich ihn wirklich löschen möchte....
Gibt es einen Parameter, der diese Frage sofort mit ja beantwortet?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheets(i).Delete
23.10.2012 13:59:59
{Boris}
Hi maximilian,
i = Sheets.Count
Application.DisplayAlerts = False
Do While i > 1
Sheets(i).Delete
i = i - 1
Loop
Application.DisplayAlerts = True
VG, Boris

AW: Sheets(i).Delete
23.10.2012 14:02:18
Maximilian
TOP! Danke!

AW: Sheets(i).Delete
23.10.2012 14:22:34
Matze,Matthias
Hi Zusammen,
ist es nicht besser man bestimmt das Blatt was stehen bleiben soll?
Sub deleteBlatt()
Dim Blatt As Object
Application.DisplayAlerts = False
For Each Blatt In Sheets
If Blatt.Name  "Tabelle1" Then 'anpassen welche stehen bleiben muss
Blatt.Delete
End If
Next Blatt
Application.DisplayAlerts = True
End Sub
Gruß Matze

Anzeige
AW: Sheets(i).Delete
23.10.2012 14:29:33
Maximilian
Richtig ;) Noch besser.. danke!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige