Forums Neueste Beiträge
 

alle Worksheets außer aktives löschen

17/04/2008 - 13:20 von Johnny Hartmannsgruber | Report spam
hi ng,

meine tabelle hat x blàtter...
ich befinde mich im blatt "Angebot" und führe meinen code aus...
jetzt sollen alle anderen blàtter gelöscht werden.
wie mache ich das per vba?

DAnke, Johnny
 

Lesen sie die antworten

#1 Thomas Kühn
17/04/2008 - 13:35 | Warnen spam
Hi Johnny,

meine tabelle hat x blàtter...
ich befinde mich im blatt "Angebot" und führe meinen code aus...
jetzt sollen alle anderen blàtter gelöscht werden.
wie mache ich das per vba?




ActiveSheet.Move Before:Sheet(1)
Dim i As Integer

Application.DisplayAlerts False

For i = Sheets.Count to 2 Step -1
Sheets(i).Delete
Next i

Application.DisplayAlerts True


Gruß Thomas

http://www.thomas-kuehn.de

Ähnliche fragen