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