Probleme mit "Kill" ...siehe Code
10.11.2007 20:50:52
Peter
ich hab ja schon gehört, dass der "Kill"-Befehl nicht ganz unproblematisch ist; manchmal bekomme ich beim Aufruf der nachfolgenden Prozedur Fehlermeldungen, die sich an der Zeile mit "Kill(C:\Obedience..." stören. Woran könnte das liegen?
Sub setzen()
SendKeys "%{F11} %Xi{TAB 9}{RIGHT}{tab}a{tab}" & "Obedience" & "{TAB}" & "Obedience" & "{ _
tab}{enter} %q"
End Sub
Sub Backup
Call setzen
If Dir("C:\Obedience\PSV1912Nbg\Backup\DatenBackup" & Date) "" Then
Kill ("C:\Obedience\PSV1912Nbg\Backup\DatenBackup" & Date) Application. _
DisplayAlerts = True
ActiveWorkbook.SaveAs "C:\Obedience\PSV1912Nbg\Backup\DatenBackup" & Date
Else: Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Obedience\PSV1912Nbg\Backup\DatenBackup" & Date
End If
.... hier werden nur noch Tabellen mit xlVeryHidden versehen, die oben im Code auf Visible _
gesetzt wurden
Vielen Dank für Euer "Hirnschmalz"
Peter S.
Anzeige