Laufzeitfehler 9
15.11.2004 09:14:23
Martin
Ich habe folgendes Problem mit diesen Code:
Sub SpeichernOhneMakros()
(Sheets("Parameter").Select 'Auswahl Parameter)
ActiveWindow.SelectedSheets.Delete ' Löschen der Seite
ActiveWorkbook.SaveAs Filename:="C:\Temp\Partlist_Plates_" & Range("F44") & Range("F45") & ".xls" 'Pfad und Name zum abspeichern
MsgBox ("Die Datei Wurde im Verzeichniss C: Temp unter dem Namen des Schiffes_" & [F44] & " und der Blocknummer_" & [F45] & "_gespeichert.")
Dim Kopie$
Kopie = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "Kopie.xls"
ThisWorkbook.Save
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "Partlist_Plates_" & Range("F44") & Range("F45") & ".xls"
On Error Resume Next
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("Modul1")
End With
On Error GoTo 0
End Sub
Und zwar in dem Zeile die in der klammer steht.
Und zwar ist es so wenn ich den Code mit der F8 taste zeile für zeile durch gehe dan funktioniert er einwandfrei
Ich Schließe die datei ohne die änderungen zu Speichern
Aber wenn ich diesen Code über den Call befehl aufrufe dann bekomme ich den Laufzeitfehler 9
Warum?
Bitte um eure hilfe
Gruß Martin