Wie nach SaveAs urspr. Datei löschen?
Lang
bei meinem gestern hier im Forum gestellten Problem "Verzeichnis inkl. Unterordner per FSO löschen", ist mir ein Fehler unterlaufen. Es sollte die Ursprungsdatei und nicht das entspr. Verzeichnis gelöscht werden. Ich bitte um Entschuldigung.
Da der bisherige Betreff nicht mehr zutrifft, stelle ich hiermit mein Problem neu dar.
In der u.a. aufgeführten Prozedur geht nach ".SaveAs Dateiname" die Variable "wbur" verloren.
Was muss ich ändern, damit die urspr. Datei mit der Variablen "wbur" gelöscht wird?
Sub UrsprDateiLoeschen()
Dim wbur As Workbook
Dim zPfad As String
Dim Dateiname As String
Set wbur = ActiveWorkbook
zPfad = Application.DefaultFilePath + "\PrfErg"
If Dir(zPfad, vbDirectory) = "" Then MkDir zPfad
Dateiname = zPfad + "PrfErgebnis2009.xls"
ActiveWorkbook.SaveAs Dateiname
Application.DisplayAlerts = False
Kill wbur ' hier kommt Fehlermeldung
Application.DisplayAlerts = True
End Sub