Run-time error '438' bij openen Excel sheet

[nextware]

Beste Tweakers,

Ik heb hier een Excel sheet onder ogen gekregen waar, bij het openen van de sheet, een melding komt:

Run-time error '438':

Object doesn't support this property or method

Als ik de debug optie aanklik, wordt de VB-module van Excel geopend en wordt de debug aangegeven bij de volgende regel:

code:

Private Sub Workbook_Open()

Dim qq As String
Dim dago, pero As String
Dim dag As Date
Dim week  As Integer
qq = "Verzenden"
dago = "Dagoverzicht " + CStr(Date - 1)
pero = "Weekoverzicht"
Worksheets(qq).OptionButton1.Caption = dago   (hier komt de debug bij te staan)
Worksheets(qq).OptionButton2.Caption = pero
Worksheets(qq).OptionButton1 = False
Worksheets(qq).OptionButton2 = True

dag = Date
week = IsoWeekNumber(dag)
Worksheets(qq).CheckBox5.Caption = week

Daarbij moet ik direct heel eerlijk zijn dat ik totaal geen verstand heb van VB-scripting. Ondanks dat heb ik wel de uitdaging op mezelf genomen om te kijken of ik het probleem kan oplossen.

We maken hier gebruik van Office 2013. Onder Office 2016 werkt de sheet wel zonder enig probleem. Mijn vermoeden is dat daarom ergens in Excel 2013 "iets" zit wat de fout veroorzaakt.

Een zoektocht op internet wijst uit dat dit blijkbaar door een update van Microsoft veroorzaakt zou zijn. De oplossing zou zijn om de complete Office installatie te updaten, welke ik dus ook al heb uitgevoerd. Echter blijft de foutmelding naar voren komen. Wat ik zo kan vinden, lijkt de foutmelding veroorzaakt te worden door een commandbutton in de Excel sheet zelf.

Daarbij heb ik al eens getest door alle macro's gewoon toe te laten en dat alle ActiveX opties gewoon uitgevoerd mogen worden. Echter heeft dit ook geen enkel effect gehad.

Wie o wie heeft voor mij nog een tip waar ik eens naar kan kijken ? Ik vermoed dat de oplossing relatief eenvoudig is, maar ik denk dat ik mijzelf teveel richting één kant van het probleem focus..

[ajakkes]

Dus in excel 2013 bestaat de eigenschap of methode OptionButton1 niet bij een Worksheet of een Caption niet bij een OptionButton1?

[Lustucru]

Er zijn twee soorten option buttons in Excel: de office.forms controls en de Excel controls. Probeer de gewraakte regel eens te vervangen door:

Worksheets(qq).Shapes("Option Button 1").TextFrame.Characters.Text = "Hallo wereld"

[nextware]

Dank voor de reacties en sorry voor mijn late reactie. Ik heb de gevraagde opties geprobeerd, maar dit heeft helaas geen effect gehad.

Wel hebben we kunnen achterhalen dat dit wordt veroorzaakt door een bepaalde update van MS Office. Als we namelijk een nieuw geïnstalleerde PC pakken en hierop de sheet openen werkt dit zonder problemen. Wanneer we echter de updates laten installeren (via Intune) dan werkt na het updaten de sheet niet meer. Dan komt dus de genoemde foutmelding naar voren.

Volgende uitdaging: kijken welke update precies de foutmelding veroorzaakt en hoe dit is op te lossen.