Blatt löschen ohne Abfrage
Frank
es ist bestimmt nicht all zu schwer, aber ich wollte an dieser Stelle fragen wie ich am elegantesten alle Datenblätter beginnend vom 2ten bis zum letzten löschen kann. Mein Code funktioniert nur so halb... :(
Ich hoffe ihr könnt mir helfen.Vielen Dank und viele Grüße,
Frank
Private Sub CommandButton1_Click()
Dim i As Integer
Dim e As Integer
e = Worksheets.Count
For i = 2 To e
Sheets(i).Select
ActiveWindow.SelectedSheets.Delete
Next i
End Sub