Beste Tweakers,
Ik heb hier een Excel sheet onder ogen gekregen waar, bij het openen van de sheet, een melding komt:
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..
Ik heb hier een Excel sheet onder ogen gekregen waar, bij het openen van de sheet, een melding komt:
Als ik de debug optie aanklik, wordt de VB-module van Excel geopend en wordt de debug aangegeven bij de volgende regel:Run-time error '438':
Object doesn't support this property or method
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| 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..