Ich möchhe gerne mit VBA ein neues Workbook erstellen
und dann die überflüssigen Tabellenblätter löschen.
Mit Excel 2003 lief alles super, nur jetzt mit 2007 oder 2010 gehts
halt nich mehr.
Hier mein Code:
Sub Export()
Dim NewBook As Workbook
Dim SaveFormat As Long
SaveFormat = Application.DefaultSaveFormat
Application.DefaultSaveFormat = 51
Workbooks.Add
Application.DefaultSaveFormat = SaveFormat
Do While NewBook.Sheets.Count > 1
NewBook.Sheets(1).Delete
Loop
End Sub
an der Stelle NewBook.Sheets(1).Delete
gibts ein Fehler
kann jemand helfen ?!
mit freundlichen Grüßen
Wolfgang