ich habe ein Problem mit dem folgenden Makros:
Index = 0
Trials = 1000
Do
Sheets("Costs_Statusquo").Select
Range("C35:F35").Select
Selection.Copy
Sheets("YEAR 1").Select
Range("C15").Select
ActiveCell.Offset(Index, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Costs_MC").Select
Range("C35:F35").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("YEAR 1").Select
Range("F15").Select
ActiveCell.Offset(Index, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Index = Index + 1
Loop While Index größer/gleich Trials
Hier macht er ja innerhalb der Do-Schleife zwei Copy-Aktionen aus unterschiedlichen Reitern und zwei Paste Aktionen in ein und denselben Reiter. Mein Problem ist, dass er diese Copy-Paste-Aktionen nicht nacheinander, sondern gleichzeitig machen soll. Hintergrund: Es sind zahlreiche Verteilungen, Zufallsvariablen etc. hinterlegt, die nach jeder "Aktion" zu neu berechneten Werten in den "Copy-Paste-Zellen" von oben führen.
Vielleicht wird es mit diesem Beispiel einleuchtender:
In Reiter "Costs_Statusquo" und "Costs_MC" sind in den zu kopierenden Bereichen die Werte 501 und 345 eingetragen.
Jetzt führt er im Do-file gemäß erstem Befehl Copy-Paste aus Reiter "Costs_Statusquo" durch.
Nach dieser Aktion haben sich die Werte aber aufgrund der ganzen Verteilungen etc auf 546 und 402 verändert.
Jetzt führt er blöderweise den nächsten Copy-Paste in Reiter "Costs_MC" mit der 402 aus. Er soll aber eigentlich die 345 von oben nehmen, weil ich die 501 mit der 345 vergleichen will.
Insofern also: Kann ich irgendwie die beiden Zahlen in unterscheidlichen Reitern GLEICHZEITIG kopieren und einfügen, bevor sich die Zahlen wieder verändern?
Ich bin euch jetzt schon dankbar für eure Hilfe und hoffe, dass ich mein Problem vernünftig beschreiben konnte. Stehe grad ziemlich auf dem Schlauch.
Viele Grüße,
Wörsi