XLS löschen
09.11.2002 19:53:58
gerd
Habe ein makr das so aussieht
Sub AutoForm63_BeiKlick()
Dim neuenummer As Integer
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Pieper\rechnungsvorlagen\rechnum.xls"
neuenummer = Cells(2, 1).Value
neuenummer = neuenummer + 1
Cells(2, 1).Value = neuenummer
ActiveWorkbook.Save
ActiveWorkbook.Close
Range("H13").Select
ActiveCell.Value = neuenummer
Application.ScreenUpdating = True
ChDir "C:\pieper\Daten"
f = Range("H13")
ActiveWorkbook.SaveAs Filename:=f
ActiveSheet.PrintOut
ChDir "C:\Pieper\Rechnungsvorlagen"
Workbooks.Open "Startseite.XLS"
jetzt möchte ich wissen , ob man die ...xls datei durch ein makro löschen kann. Die ...xls hat immer einen anderen namen da sie mit einer laufenden Nr versehen ist.
Anzeige