Hi Community,
the following Code Works with Office 2010 and 2016 on Windows and it Works with Excel 2011 on the Mac. But Office 2016 on Mac "had to be terminated because of problems", at the line "Set frage = ErstelleFrage( _"
#If Mac Then
    If Application.Version > 14 Then Stop
#End If
            Dim frage As clsFrage
            Set frage = ErstelleFrage( _
                ID, _
                Gewichtung, _
                Text, _
                zaehler_lng, _
                dep, _
                sdep, _
                cat)
The Function:
Private Function ErstelleFrage(ByVal vID As String, _
                                  ByVal vGewichtung As Integer, _
                                  ByVal vText As String, _
                                  ByVal vZeile As Long, _
                                  ByRef oDepartment As clsDepartment, _
                                  ByRef oSubDepartment As clsSubDepartment, _
                                  ByRef oCategory As clsCategory) As clsFrage
   Dim oNewObj As New clsFrage
   Call oNewObj.ErstelleMich(vID, vGewichtung, vText, vZeile, oDepartment, oSubDepartment, oCategory)
   Set ErstelleFrage = oNewObj
End Function
Thanks for any Ideas :/