|
Moin,
also eine zufallsbasierte Optimierung?
Sub sicherung()
Dim CRange$, D3, D4, I&
Dim TS As Object, TS2 As Object
Set TS = Sheets("TabelleSicherung")
Set TS2 = Sheets("TabelleSicherung2")
With Sheets(1)
For I = 1 To 100
D3 = .Cells(3, 4).Value
D4 = .Cells(4, 4).Value
If D3 > D4 Then
.Cells(4, 4).Value = D3
.Calculate
End If
Next
TS.Cells.Copy
With TS2.Cells(1, 1)
.PasteSpecial (xlFormats)
.PasteSpecial (xlValues)
End With
.Cells.Copy
With TS.Cells(1, 1)
.PasteSpecial (xlFormats)
.PasteSpecial (xlValues)
End With
Application.CutCopyMode = False
End With
End Sub
Setzt natürlich vorraus das in Sheet 1 D3 bei jeder Neuberechnung einen neuen Wert erhält...
Für Optimierungsverfahren bietet sich sonst das Solver Addin an... oder ein selbst geschriebenes kombinatorisches Verfahren.
|