Fehlermeldung beim Formatbefehl
20.11.2006 16:46:40
egon
Ich stehe auf dem Schlauch:
Wer hilft?
Ich bekomme folgende Fehlermeldung: Projekt oder Bibliothek nicht gefunden.
Der Fehler wird bei Format markiert!
Private Sub CommandButton9_Click()
Worksheets("Stufe_600_Konti").Copy
ActiveSheet.OLEObjects.Delete
With ActiveSheet.UsedRange
.Value = .Value
End With
With ActiveSheet.Parent.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
On Error GoTo ERRORHANDLER
ActiveWorkbook.SaveAs "D:\Daten\Excel\Basf\IP21\Stufenprotokoll\laeuft\" & Format(Now, "DD.MM.YY hh") & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="m", ReadOnlyRecommended:= _
False, CreateBackup:=False ' neue Datei Workbooks.Add
Exit Sub
ERRORHANDLER:
MsgBox "Die Datei konnte nicht gespeichert werden!"
End Sub
Schönen Feierabend
Egon