Foutmelding bij waarde geven aan variabele (VBA in office 2016)

[antonh]

Goedemorgen,

Ik ben momenteel bezig met het testen van mijn excel rapportages in excel 2016.
Bij het meegeven van een waarde aan een variabele loopt VBA nu echter stuk, terwijl ik dit niet had in Excel 2010/2013.

Ik heb de code waar het misloopt even in testdocument gezet, welke als bijlage is toegevoegd.
Hieronder de code welke ik gebruik.

Module genaamd Queries:

Option Private Module
Global PeriodiekAan As Integer

ThisWorkbook:

Private Sub Workbook_Open()
'periodiek uitzetten
Queries.PeriodiekAan = 9
Test
End Sub

Sub Test()
MsgBox Queries.PeriodiekAan
End Sub

Heeft iemand een idee wat er is veranderd in Excel 2016, waardoor dit nu niet meer werkt?

Alvast bedankt voor de reacties.

Mvg,
AntonH

 

[snb]

Vervang 'Global' eens door 'Public'.

 

[antonh]

Helaas krijg ik dan nog steeds dezelfde foutmelding:

Fout 438 tijdens uitvoering:

Deze eigenschap of methode wordt niet ondersteund door dit object

 

[snb]

Zie de bijlage.

 

[antonh]

Top! Nu werkt het inderdaad wel. Vreemde wijziging mijn inziens.

Bedankt voor de oplossing en je snelle reactie