PDA

View Full Version : Excel 2016 Crash when calling Function with some parameters



KarstenG.
09-06-2016, 04:56 AM
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 :/