Running planning sequence and PlanDataSave within one button

Dear all,

I'm trying to merge two buttons into only one button. My current solution exists of a validation sequence and a separate "save" button for planned data.

I wanted to trigger the planning sequence via:

lResult = Application.Run("SAPExecutePlanningSequence", "PS_1")

and the saving via (as from the SAP User Analysis Guide)

lResult = Application.Run("SAPExecuteCommand", "PlanDataSave")

Unfortunately only either the validation sequence or the saving will be executed (depending on the order).

Below you can find my "full coding" for that specific button:

'Callback for Save data onAction
Sub SAVE(control As IRibbonControl)

Dim lResult As Long

    lResult = Application.Run("SAPExecuteCommand", "PlanDataSave")

    lResult = Application.Run("SAPExecutePlanningSequence", "PS_1")

End Sub

I already tried some different approaches with IF-functionality and so on; unfortunately without success.

Does anyone of you have another idea on this?

Thanks in advance!

Kind regards

Dominik