• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Catastrophic Failure

Status
Niet open voor verdere reacties.

willie76

Gebruiker
Lid geworden
6 nov 2010
Berichten
124
Forummers,

Ik dacht slim te zijn in mn workbook de volgende code te plaatsen:
Code:
Private Sub Workbook_Open()
UserForm1.Show
End Sub

Hiermee dacht ik dat ik zou bereiken dat, op het moment dat het excelbestand geopend wordt, het formulier automatisch te voorschijn komt.

Nu krijg ik echter een catastrophic failure: Systeemfout &H8000FFFF (-2147418113)

Wie heeft er een oplossing.

ps. gelukkig had ik een backup bestand gemaakt, dus niet al het werk is verloren........, maar vervelend is t wel.
 
Het komt waarschijnlijk omdat niet het gehele bestand geladen is als je de sub uitvoert.
Probeer dit:
Code:
Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:05"), "Formulier"
End Sub
en in een module
Code:
Sub Formulier
    UserForm1.Show
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan