Problem mit SaveAs Eigenschaft
29.01.2008 14:56:00
Uwe
ich habe eine SaveAs Eigenschaft in meiner Userform, welche unter bestimmten Bedingungen gestartet werden soll. Das funktioniert scheinbar auch ohne Probleme. wenn ich jedoch nun zurück in meinem Menü bin und dieses Schliesse, erscheint die Meldung:
'Laufzeitfehler 1004'
Die Methode 'SaveAs' für das Objekt '_Workbook' ist fehlgeschlagen
Wenn ich jetzt auf Debuggen klicke, wird folgendes Markiert:
ActiveWorkbook.SaveAs Filename:=Sheets("system").Range("B101") & neuerName & ".xls"
Hier der Code der Userform, die unter bestimmten Bedingungen speichern soll:
'####################
'#Workbook speichern#
'####################
Set Fso = CreateObject("Scripting.FileSystemObject")
DateiName = Sheets("system").Range("B101") & Sheets("system").Range("B58") & ".xls"
If Fso.FileExists(DateiName) Then
nachricht = MsgBox("Datei existiert schon!" & Chr(13) & Chr(13) & "Wollen Sie die Datei unter anderem Namen speichern ?", vbYesNo)
If nachricht = vbYes Then
GoTo neuennamenfestlegen
neuennamenfestlegen:
neuerName = InputBox("neuer Name?", "Neuen Namen festlegen")
If StrPtr(neuerName) = 0 Then ' Abbrechen
MsgBox "Die Datei wird nicht gespeichert"
Unload Me
menue.Show
End If
If neuerName = "" Then ' keine Eingabe
MsgBox "Die Datei wird nicht gespeichert"
Unload Me
menue.Show
End If
If Fso.FileExists(neuerName) Then
neuerNameexistiert = MsgBox("Datei existiert schon!" & Chr(13) & Chr(13) & "Wollen Sie die Datei unter anderem Namen speichern ?", vbYesNo)
If neuerNameexistiert = vbYes Then
GoTo neuennamenfestlegen
Else:
MsgBox "Die Datei wird nicht gespeichert"
Unload Me
menue.Show
End If
Else:
GoTo speichern_neuername
End If ' If StrPtr(neuerName) = 0 Then ' Abbrechen
' MsgBox "Die Datei wird nicht gespeichert"
' Exit Sub
' End If
' If neuerName = "" Then ' keine Eingabe
' MsgBox "Die Datei wird nicht gespeichert"
' Exit Sub
' End If
Else
MsgBox "Die Datei wird nicht gespeichert"
Unload Me
menue.Show
End If
GoTo speichern_ueberspringen
speichern_neuername:
ActiveWorkbook.SaveAs Filename:=Sheets("system").Range("B101") & neuerName & ".xls"
Else
ActiveWorkbook.SaveAs Filename:=Worksheets("system").Range("B101") & Worksheets("system").Range("B58") & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End If
speichern_ueberspringen:
Unload Me
menue.Show
End Sub
Und hier der Code des Menues:
Private Sub UserForm_Initialize()
angemeldeter_benutzer.Caption = benutzername
If Worksheets("system").Range("A58") "" Then
If Worksheets("system").Range("d2") = "x" Then
wareneingangsprotokoll.Enabled = True
Else:
wareneingangsprotokoll.Enabled = False
End If
If Worksheets("system").Range("e2") = "x" Then
auftrag.Enabled = True
Else:
auftrag.Enabled = False
End If
If Worksheets("system").Range("f2") = "x" Then
datenblatt1.Enabled = True
Else:
datenblatt1.Enabled = False
End If
If Worksheets("system").Range("g2") = "x" Then
abnahmeprotokoll.Enabled = True
Else:
abnahmeprotokoll.Enabled = False
End If
If Worksheets("system").Range("h2") = "x" Then
checklistetka.Enabled = True
Else:
checklistetka.Enabled = False
End If
If Worksheets("system").Range("i2") = "x" Then
checklisteta.Enabled = True
Else:
checklisteta.Enabled = False
End If
If Worksheets("system").Range("j2") = "x" Then
sensorik.Enabled = True
Else:
sensorik.Enabled = False
End If
If Worksheets("system").Range("k2") = "x" Then
pruefbuch.Enabled = True
Else:
pruefbuch.Enabled = False
End If
If Worksheets("system").Range("l2") = "x" Then
optionen.Enabled = True
Else:
optionen.Enabled = False
End If
If Worksheets("system").Range("m2") = "x" Then
endschalterpruefung.Enabled = True
Else:
endschalterpruefung.Enabled = False
End If
If Worksheets("system").Range("n2") = "x" Then
formblaetterleeren.Enabled = True
Else:
formblaetterleeren.Enabled = False
End If
If Worksheets("system").Range("o2") = "x" Then
maengelliste.Enabled = True
Else:
maengelliste.Enabled = False
End If
Else:
checklistetka.Enabled = False
abnahmeprotokoll.Enabled = False
checklisteta.Enabled = False
datenblatt1.Enabled = False
endschalter.Enabled = False
formblaetterleeren.Enabled = False
pruefbuch.Enabled = False
sensorik.Enabled = False
wareneingangsprotokoll.Enabled = True
auftragseingabe.Enabled = False
maengelliste.Enabled = False
optionen.Enabled = False
End If
If benutzername = "" Then
Unload Me
login.Show
Else
End If
End Sub
kann jemand etwas damit anfangen?
MfG Uwe