Guten Tag und hallo Excelkenner,
ich habe folgendes Problem: Mit der Markoaufnahme habe ich ein Szenario mitgeschnitten, die Werte für die veränderbare Zelle habe ich aus Zellen eingegeben. Diese änder sich jedoch in Abhängigkeit zu einer anderen Zelleneingabe. Im Makro ablauf des Szenarios stehen jedoch immer die Werte, die Ich bei der Aufnahme aus den Zellen ausgelesen habe.
Nun hätte ich gerne, das anstatt des Array, dass während des Marko durchlaufs die betreffenden Zellen neu eingelesen werden.
Im folgendem poste ich mal den Makroquelltext:
Sub Stromeigenanteil()
’
’ Stromeigenanteil Makro
’ Makro am 15.11.2009 von Mirko Eichler aufgezeichnet
’
’ Tastenkombination: Strg+Umschalt+B
’
ActiveSheet.Scenarios(„100“).Delete
ActiveSheet.Scenarios(„99“).Delete
ActiveSheet.Scenarios(„98“).Delete
…
…
…
ActiveSheet.Scenarios(„3“).Delete
ActiveSheet.Scenarios(„2“).Delete
ActiveSheet.Scenarios(„1“).Delete
ActiveSheet.Scenarios.Add Name:=„1“, ChangingCells:=„R24C6“, Values:= _
Array(„1“), Comment:=„Erstellt von Mirko Eichler am 15.11.2009“, Locked:= _
True, Hidden:=False
ActiveSheet.Scenarios.Add Name:=„2“, ChangingCells:=„R24C6“, Values:= _
Array(„2“), Comment:=„Erstellt von Mirko Eichler am 15.11.2009“, Locked:= _
True, Hidden:=False
ActiveSheet.Scenarios.Add Name:=„3“, ChangingCells:=„R24C6“, Values:= _
Array(„3“), Comment:=„Erstellt von Mirko Eichler am 15.11.2009“, Locked:=
…
…
…
ActiveSheet.Scenarios.Add Name:=„97“, ChangingCells:=„R24C6“, Values:= _
Array(„97“), Comment:=„Erstellt von Mirko Eichler am 15.11.2009“, Locked:= _
True, Hidden:=False
ActiveSheet.Scenarios.Add Name:=„98“, ChangingCells:=„R24C6“, Values:= _
Array(„98“), Comment:=„Erstellt von Mirko Eichler am 15.11.2009“, Locked:= _
True, Hidden:=False
ActiveSheet.Scenarios.Add Name:=„99“, ChangingCells:=„R24C6“, Values:= _
Array(„99“), Comment:=„Erstellt von Mirko Eichler am 15.11.2009“, Locked:= _
True, Hidden:=False
ActiveSheet.Scenarios.Add Name:=„100“, ChangingCells:=„R24C6“, Values:= _
Array(„100“), Comment:=„Erstellt von Mirko Eichler am 15.11.2009“, Locked:= _
True, Hidden:=False
ActiveSheet.Scenarios.CreateSummary ReportType:=xlStandardSummary, _
ResultCells:=Range(„M24“)
Range(„G8:smiley:A8“).Select
Selection.Copy
Sheets(„Tabelle2“).Select
Range(„D336“).Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets(„Szenariobericht“).Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
End Sub
Also im oberen Teil wird das alt Szenario gelöscht, damit im Rahmen einer Sensivitätsanalyse das Makro öfter durchgeführt werden kann. Danach sollen die Szenarien 1-100 neu erstellt werden, die Werte (Arrays) müssen aber aber dafür aus den Zellen neu eingelesen werden.
Ich hoffe da kann mir jemand helfen, ich stelle mir die Lösung so ähnlich vor wie:
ActiveSheet.Scenarios.Add Name:=„1“, ChangingCells:=„R24C6“, Cell:=„R1C10“, Comment:=„Erstellt von Mirko Eichler am 15.11.2009“, Locked:= _
Ich benutze Excel 2003. Rolling Eyes