|
Hallo noch einmal :),
ich habe nun einen Code, der beim Drücken auf den Button die Werte aus D9 und E9 in die Zellen D95:D1094 bzw. E95:E1094 speichert. Der Code sieht wie folgt aus:
Private Sub CommandButton1_Click()
BerechnungEintragen
For i = 1 To 1000
Application.CalculateFull
Next i
End Sub
Sub BerechnungEintragen()
Dim lngZeile As Long
Dim lngZaehler As Long
lngZeile = 95
For lngZaehler = 1 To 1000
Range("D9").Select
Selection.Copy
ActiveWindow.Panes(3).Activate
Range("D95:D1094").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(lngZeile, 4) = Range("D9")
Cells(lngZeile, 5) = Range("E9")
lngZeile = lngZeile + 1
Next lngZaehler
End Sub
Problem ist, dass wie gesagt der Wert in D9 und E9 sich mit jeder Berechnung ändert und somit durch Drücken auf den Button 1.000 Berechnungen ausgelöst werden, die zu 1.000 verschiedenen Werten in D9 und E9 führen. Leider werden diese verschiedenen Werte nicht in D95:D1094 bzw. E95:E1094 gespeichert. Stattdessen ist in D95:D1094 1.000 Mal ein Wert und in E95:E1094 1.000 Mal ein anderer Wert gespeichert, so dass ich nicht weiß, was in den anderen Berechnungen für Werte generiert wurden :(.
Ich hoffe wirklich sehr, dass mir jemand weiterhelfen kann und bedanke mich vielmals für Eure Mühe.
Danke & viele Grüße
|