Fout 'Variabele maakt gebruik van een automatiseringstype dat niet wordt ondersteund' in Visual Basic Editor in Excel voor Mac

Laatst bijgewerkt: 10 november 2017

PROBLEEM

In oktober 2017 is in Excel voor Mac het nieuwe Visual Basic Editor geïntroduceerd. In deze VB-editor treedt de volgende fout op als er objectdeclaraties worden gemaakt door boven in het codevenster een keuze te maken in het vervolgkeuzemenu:

Als u links in de vervolgkeuzelijst klikt en een item in de lijst kiest, ziet u in de vervolgkeuzelijst rechts code voor de geselecteerde gebeurtenis. U kunt nog enkele selecties maken in de vervolgkeuzelijst rechts om aanvullende code te maken voor de gekozen gebeurtenis.

VB-editor met vervolgkeuzelijst voor objectselectie

In plaats daarvan wordt een foutmelding weergegeven dat er geen code wordt gemaakt.

Fout in Microsoft Visual Basic: Variabele maakt gebruik van een automatiseringstype dat niet wordt ondersteund in Visual Basic.

STATUS: TIJDELIJKE OPLOSSING

Kies een van de tijdelijke oplossingen voor dit probleem:

TIJDELIJKE OPLOSSING 1

U kunt een soortgelijke stap uitvoeren op een computer met Excel voor Windows en vervolgens de code naar Excel voor Mac kopiëren.

TIJDELIJKE OPLOSSING 2

U kunt naar MSDN gaan en de syntaxis zoeken voor de gebeurtenis die u wilt gebruiken en de code handmatig in het VBA-project typen. In dit artikel worden de Microsoft Excel-werkmapgebeurtenissen beschreven - Workbook Events (Werkmapgebeurtenissen).

TIJDELIJKE OPLOSSING 3

Kopieer de desbetreffende gebeurteniscode van de onderstaande voorbeelden en plak deze in het VBA-project. Kopieer voor elke gebeurtenis de code vanaf 'Private Sub' tot en met 'End Sub'.

    
    

Private Sub Workbook_Activate()

End Sub

Private Sub Workbook_AddinInstall()

End Sub

Private Sub Workbook_AddinUninstall()

End Sub

Private Sub Workbook_AfterRemoteChange()

End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub

Private Sub Workbook_BeforeRemoteChange()

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

Private Sub Workbook_Deactivate()

End Sub

Private Sub Workbook_NewChart(ByVal Ch As Chart)

End Sub

Private Sub Workbook_NewSheet(ByVal Sh As Object)

End Sub

Private Sub Workbook_Open()

End Sub

Private Sub Workbook_PivotTableCloseConnection(ByVal Target As PivotTable)

End Sub

Private Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable)

End Sub

Private Sub Workbook_RowsetComplete(ByVal Description As String, ByVal Sheet As String, ByVal Success As Boolean)

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

End Sub

Private Sub Workbook_SheetPivotTableAfterValueChange(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)

End Sub

Private Sub Workbook_SheetPivotTableBeforeAllocateChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetPivotTableBeforeCommitChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetPivotTableBeforeDiscardChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)

End Sub

Private Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable)

End Sub

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

Private Sub Workbook_SheetTableUpdate(ByVal Sh As Object, ByVal Target As TableObject)

End Sub

Private Sub Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType)

End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)

End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window)

End Sub

Pictogramexperts (hoofd, tandwielen)

Vraag de experts

Maak verbinding met experts, bespreek het laatste nieuws, de updates en aanbevolen procedures voor Excel, en lees onze blog.

Excel Tech Community

Pictogramcommunity

Hulp vragen in de community

Stel een vraag aan en zoek naar oplossingen van Support-medewerkers, MVP's, technici en andere Excel-gebruikers.

Excel-forum op Antwoorden

Pictogramfunctieaanvraag (gloeilamp, idee)

Een nieuwe functie voorstellen

We lezen graag uw suggesties en feedback. Deel uw mening. We zijn erg geïnteresseerd.

Excel UserVoice

Zie ook

Fixes of tijdelijke oplossingen voor recente problemen in Excel voor Mac

Uw Office-vaardigheden uitbreiden
Training verkennen
Als eerste nieuwe functies krijgen
Deelnemen aan Office Insiders

Was deze informatie nuttig?

Bedankt voor uw feedback.

Hartelijk dank voor uw feedback! Het lijkt ons een goed idee om u in contact te brengen met een van onze Office-ondersteuningsagents.

×