mein Problem:
Ich möchte gerne eine Zahlenreihe automatisch per VBA erstellen, indem vom jeweiligen Vorgängerwert ein absoluter Wert abgezogen wird und das Ergebnis der nächste Ausgangswert ist, vom dem ein absoluter Wert abgezogen wird. Der Startwert der Zahlenreihe sowie der konstante, abzuziehende Wert sind bekannt. Also z.B.
Startwert (initialtime) = 101
Abzuziehender Wert (j) = 2
101 2 = 99
99 2 = 97
97 2 = 95
etc.
Ich möchte das Programm so allgemein wie möglich halten.
Die beiden folgenden Programme müsste ich doch irgendwie zu einem zusammenfügen können.
Sub time1()
For j = 1 To 4 Step 1
Selection.Copy
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Next j
End Sub
Sub time2()
Dim time as double
Dim initialtime as double
Dim j as double
For j = 1 To 4 Step 1
time = initialtime - j
Next j
End Sub
Hat jemand von euch vielleicht eine einfachere Lösung parat?
Chrissi