Foutmelding in Excel

[Jan Liekens]

Ik heb een programma in Excel waarin in gegevens bewaar en via CommandButtons navigeer tussen de schermen. Als ik geen gegevens ingevoerd heb en afsluit sluit het programma zonder problemen af. Indien ik echter gegevens ingevoerd heb en via de knoppen het programma afsluit krijg ik de foutboodschap:
File : Excel.exe Application Error
The instruction at "0x300ae758" referenced memory at "0x00000084". The memory could not be "read".
Click on OK to terminate the application
Click on CANCEL to debug the application.
In beide gevallen OK en CANCEL wordt EXCEL totaal afgesloten.
Het probleem doet zich voor als een van de CommandButtons is aangeklikt
Heeft iemand hier ervaring mee?
De gebruikte code voor de CommandButtons


Het probleem doet zich uitsluitend voor indien een van de 3 command buttons in het programma aangeklikt zijn. De gebruikte code is de volgende :

Private Sub CommandButton1_Click()
Sheets("Beginscherm").Visible = True
Sheets("Beginscherm").Select
End Sub
----
Private Sub CommandButton2_Click()
Sheets("Rapportering").Visible = True
Sheets("Rapportering").Select
End Sub
---
Private Sub CommandButton3_Click()
mcrReservekopieTerugplaatsen
End Sub
---
Sub KnoppenInstellen()
If [usercode] = "1" Then
CommandButton1.Enabled = True
CommandButton2.Enabled = True
CommandButton3.Enabled = False
ElseIf [usercode] = "2" Then
CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = False
ElseIf [usercode] = "3" Then
CommandButton1.Enabled = True
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End If
End Sub
----
Sub KnoppenUitschakelen()
CommandButton1.Enabled = False
CommandButton2.Enabled = False
CommandButton3.Enabled = False
End Sub
-----
Greetz
Jan Liekens

 

[Guus2005]

Probeer dit eens:

AIs je spreadsheet erg groot is kan het helpen dat je hem kleiner maakt

Code lijkt er goed uit te zien.

Probeer dit eens: Verwijder de knoppen en maak ze opnieuw aan inclusief code.
of
Knip en plak alles eens naar een nieuwe lege speadsheet.
of
installeer office opnieuw (rigoreus)
of
installeer windows opnieuw (rigoreuzer)
of
koop nieuwe pc (rigoreust)

HTH
Weest gegroet,
Guus