Bei Microsoft anmelden
Melden Sie sich an, oder erstellen Sie ein Konto.
Hallo,
Wählen Sie ein anderes Konto aus.
Sie haben mehrere Konten.
Wählen Sie das Konto aus, mit dem Sie sich anmelden möchten.

Letzte Aktualisierung: 10. April 2019

PROBLEM

In Excel für Mac wurde im Oktober 2017 ein neuer Visual Basic-Editor eingeführt. Bei diesem neuen VB-Editor tritt ein Problem auf, wenn Objektdeklarationen durch Auswahl aus dem Dropdownmenü am oberen Rand des Codefensters erstellt werden.

Wenn Sie auf die Dropdownliste auf der linken Seite klicken und ein Element aus der Liste auswählen, sollte bestimmter Code für das ausgewählte Ereignis in der Dropdownliste auf der rechten Seite angezeigt werden. Sie können zusätzliche Optionen aus der Dropdownliste auf der rechten Seite auswählen, um weiteren Code zur Behandlung des ausgewählten Ereignisses zu erstellen.

VBE-Editor mit Objektauswahl-Dropdownliste

Stattdessen tritt ein Fehler auf, und der Code wird nicht erstellt.

Microsoft Visual Basic-Fehler Variable verwendet einen nicht unterstützten Automatisierungstyp in Visual Basic.

STATUS: PROBLEMUMGEHUNG

Wählen Sie eine der folgenden Problemumgehungen aus:

PROBLEMUMGEHUNG Nr. 1

Sie können einen ähnlichen Schritt auf einem Computer mit Excel für Windows ausführen und den Code dann in Excel für Mac kopieren.

PROBLEMUMGEHUNG Nr. 2

Sie können zu MSDN wechseln, die Syntax für das Ereignis suchen, das Sie verwenden möchten, und den Code dann manuell in Ihr VBA-Projekt eingeben. In diesem Artikel werden die Microsoft Excel-Arbeitsmappenereignisse beschrieben: Arbeitsmappenereignisse.

PROBLEMUMGEHUNG Nr. 3

Kopieren Sie den Code für das entsprechende Ereignis aus den unten stehenden Beispielen, und fügen Sie ihn in Ihr VBA-Projekt ein. Achten Sie darauf, dass Sie für jedes Ereignis den Code von "Private Sub..." bis einschließlich "End Sub" kopieren.

DieseArbeitsmappeArbeitsblatt

Private Sub Worksheet_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 Worksheet_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 Worksheet_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

Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_BeforeDelete()

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Worksheet_Calculate()

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_Deactivate()

End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

End Sub

Private Sub Worksheet_LensGalleryRenderComplete()

End Sub

Private Sub Worksheet_PivotTableAfterValueChange(ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)

End Sub

Private Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Worksheet_PivotTableBeforeCommitChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Worksheet_PivotTableBeforeDiscardChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)

End Sub

Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)

End Sub

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Private Sub Worksheet_TableUpdate(ByVal Target As TableObject)

End Sub

Weitere Ressourcen

Experten-Symbol (Gehirn, Zahnräder)

Fragen Sie Experten

Nehmen Sie Kontakt zu Experten auf, diskutieren Sie über die aktuellen Neuigkeiten, Updates und bewährten Methoden für Excel, und lesen Sie unseren Blog.

Excel Tech Community

Community-Symbol

Holen Sie sich Hilfe in der Community

Stellen Sie eine Frage, und erhalten Sie Lösungen von Supportmitarbeitern, MVPs, Ingenieuren und andere Excel-Benutzern.

Excel-Forum für Antworten

Symbol zum Anfordern von Features (Glühbirne, Idee)

Neues Feature vorschlagen

Wir freuen uns auf Ihr Feedback und Ihre Vorschläge! Teilen Sie uns Ihre Meinung mit. Wir hören Ihnen zu.

Feedback geben

Siehe auch

Korrekturen oder Problemumgehungen für aktuelle Probleme in Excel für Mac

Facebook LinkedIn E-Mail

Benötigen Sie weitere Hilfe?

Möchten Sie weitere Optionen?

Entdecken Community Kontaktieren Sie uns

Erkunden Sie die Abonnementvorteile, durchsuchen Sie Trainingskurse, erfahren Sie, wie Sie Ihr Gerät schützen und vieles mehr.

Vorteile des Microsoft 365-Abonnements

Microsoft 365-Training

Microsoft Security

Barrierefreiheitscenter

In den Communities können Sie Fragen stellen und beantworten, Feedback geben und von Experten mit umfassendem Wissen hören.

Fragen Sie die Microsoft Community

Microsoft Tech Community

Windows-Insider

Microsoft 365 Insider

Suchen Sie Lösungen für allgemeine Probleme, oder erhalten Sie Hilfe von einem Supportmitarbeiter.

Online-Support

War diese Information hilfreich?

Wie zufrieden sind Sie mit der Sprachqualität?
Was hat Ihre Erfahrung beeinflusst?
Wenn Sie auf "Absenden" klicken, wird Ihr Feedback zur Verbesserung von Produkten und Diensten von Microsoft verwendet. Ihr IT-Administrator kann diese Daten sammeln. Datenschutzbestimmungen.

Vielen Dank für Ihr Feedback!

×