(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??"