Automatisch speichern
13.06.2002 12:28:39
BeGro
ich benötige dringend Hilfe bei folgendem Code, mit dem ich eine Userform verlasse und dann die Datei abspeichern will. Jedesmal erscheint die Meldung "Laufzeitfehler9, Index außerhalb des gültigen Bereichs":
Private Sub CommandButton_Haupt_Click()
Dim speicherpfad As String
UserForm_Preis_Haupt.Hide
speicherpfad = ActiveWorkbook.FullName
Workbooks(speicherpfad).Save
End Sub
Bitte um Hilfe
BeGro
Anzeige