In diesem Beispiel wird in Sheet1 ein neues Szenario hinzugefügt.
Worksheets("Sheet1").Scenarios.Add Name:="Best Case", _ ChangingCells:=Worksheets("Sheet1").Range("A1:A4"), _ Values:=Array(23, 5, 6, 21), _ Comment:="Most favorable outcome."