Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

arbeitsblätter löschen

Betrifft: arbeitsblätter löschen von: mex75
Geschrieben am: 18.08.2004 13:35:55

hallo!

als vba neuling und plag mich dementsprechend:

problmstellung:

will alle arbeitsblätter bis auf das erste löschen.


mein versuch:

Dim i As Integer
Dim x As Integer

x = Application.ActiveWorkbook.Worksheets.Count

For i = 2 To x Step 1

Application.ActiveWorkbook.Worksheet.Delete

Next i

funktioniert leider nicht.
bitte um hilfe!

  


Betrifft: AW: arbeitsblätter löschen von: Ulf
Geschrieben am: 18.08.2004 13:40:05

For i = x To 2 Step -1

Ulf


  


Betrifft: AW: arbeitsblätter löschen von: mex
Geschrieben am: 20.08.2004 16:11:17

danke hat geklappt, obwohl mir nicht klar ist warum mein versuch nicht funktionierte (bei mir wurde ja nur in die andere richtung gezählt)


  


Betrifft: AW: arbeitsblätter löschen von: FloGo
Geschrieben am: 18.08.2004 13:40:25

Hallo Mex
so:

Sub blatt()
  Dim i As Integer, x As Integer
  
  x = Worksheets.Count
  For i = x To 2 Step -1
    Worksheets(i).Delete
  Next i
End Sub


FloGo