Wie kann ich mit einem Makro mehrere Blätter, die sich zwischen zwei Blättern (z.B. "Start" und "Ende") befinden, zusammen löschen.
Kann mir jemand helfen?
Vielen Dank im voraus.
Gruss
flower
Sub tt()
Dim a
Application.DisplayAlerts = False
For Each a In ActiveWorkbook.Sheets
If a.Name "Start" And a.Name "Ende" Then a.Delete
Next
End Sub
Grüss vom Tipp
Sub lösche()
Dim a As Byte
For a = 1 To ActiveWorkbook.Worksheets.Count - 2
Application.DisplayAlerts = False
Sheets(ActiveWorkbook.Worksheets.Count - 1).Delete
Application.DisplayAlerts = True
Next a
End Sub
Gruss
Tino
Sub sheets_delete()
'Keine Nachfrage für das Löschen der Blätter!!!!!
Dim i As Integer, istart As Integer, iende As Integer
On Error GoTo exiterr
Application.DisplayAlerts = False
istart = Sheets("Start").Index
iende = Sheets("Ende").Index
For i = iende - 1 To istart + 1 Step -1
Sheets(i).Delete
Next i
exiterr:
Application.DisplayAlerts = True
End Sub
Gruß Rainer