(VBA) Löschen aller Arbeitsblättern bis auf drei

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: (VBA) Löschen aller Arbeitsblättern bis auf drei
von: Lars
Geschrieben am: 17.02.2005 16:12:06
Moin ihr Excel-Spezis. :)
Wie kann ich auf Knopfdruck einer UserForm alle Blätter löschen lassen bis auf drei (haben jeweils einen Festen namen und sind immer die ersten drei Blätter in der Arbeitsmappe).
Ich komm da irgendwie nicht drauf.
Danke schon mal für evt. Hilfe.
Gruß Lars

Bild

Betrifft: AW: (VBA) Löschen aller Arbeitsblättern bis auf dr
von: Josef Ehrensberger
Geschrieben am: 17.02.2005 16:15:57
Hallo Lars!
Z.B. so:

Dim n As Integer
If Thisworkbook.Sheets.Count > 3 Then
Application.DisplayAlerts = False
   For n = 4 to Thisworkbook.Sheets.Count
      Sheets(n).Delete
   Next
Application.DisplayAlerts = True
End If


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: (VBA) Löschen aller Arbeitsblättern bis auf dr
von: Jan
Geschrieben am: 17.02.2005 16:20:25
For n = Thisworkbook.Sheets.Count to 4 step -1
Ist es nicht so richtig?
mfg Jan
Bild

Betrifft: AW: (VBA) Löschen aller Arbeitsblättern bis auf dr
von: Lars
Geschrieben am: 17.02.2005 16:25:59
Super, vielen Dank ihr zwei
mit jan's rückwärtsschleife und sepps Programm gehts ohne probleme!
Danke sehr
Bild

Betrifft: For i = Sheets.Count To 4 Step -1
von: ransi
Geschrieben am: 17.02.2005 16:24:18
hallo lars
versuchs mal so:
Public

Sub t()
Dim i As Integer
If Sheets.Count < 4 Then Exit Sub
Application.DisplayAlerts = False
For i = Sheets.Count To 4 Step -1
     Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub

beim deleten in schleifen habe ich mir angewöhnt von obenrunter zu löschen.
da kommt der zähler nicht so leicht ins straucheln...
ransi
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wie kann "Sub" Werte von einer Tabelle einlesen??"