Clever-Excel-Forum

Guten Tag zusammen,

gibt es eine Möglichkeit bei Excel im VBA eine Datumsgenerator zur erstellen?

Folgende Aufgabe:

In Excel wird über ein Commandbutton ein VBA Programm zum ausrechnen von Zinsen geschrieben.
Jetzt gibt es aber auch die Möglichkeit den ursprünglichen Betrag in Raten zu bezahlen. D. H. pro Rate 
kommt eine gewisse Höhe an Zinsen hinzu.

Jetzt möchte man über den Commandbutton die Zahldaten eingeben- jeweils zum ersten eines Monats, begrenzt auf zwei Jahre.

Es müsste also in den Zeilen 2 - 29 (z. B.) die jeweils Monatsersten angeben werden.

Also z. B. wenn man in Zeile 2 den 01.04.2020 einträgt dann bis zum 01.04.2022 automatisch eingefügt wird (nur jeweils der Monatserste immer) und 
wenn die Raten weniger als 24 Monate betragen - z. B. nur 8 Monate- das man dies auf die in einer Zelle angegeben Zahl der Raten beschränken kann.

Ist das möglich?

Viele Grüße

Basti

Hallo Basti,

muss es unbedingt VBA sein?

Hier mal ein Formelansatz:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	01.01.2020	5
2	01.02.2020
3	01.03.2020
4	01.04.2020
5	01.05.2020
6
7
8
9
10

Zelle	Formel
A2	=WENN(ZEILE()<=$B$1;DATUM(JAHR(A1);MONAT(A1)+1;1);"")
A3	=WENN(ZEILE()<=$B$1;DATUM(JAHR(A2);MONAT(A2)+1;1);"")
A4	=WENN(ZEILE()<=$B$1;DATUM(JAHR(A3);MONAT(A3)+1;1);"")
A5	=WENN(ZEILE()<=$B$1;DATUM(JAHR(A4);MONAT(A4)+1;1);"")
A6	=WENN(ZEILE()<=$B$1;DATUM(JAHR(A5);MONAT(A5)+1;1);"")
A7	=WENN(ZEILE()<=$B$1;DATUM(JAHR(A6);MONAT(A6)+1;1);"")
A8	=WENN(ZEILE()<=$B$1;DATUM(JAHR(A7);MONAT(A7)+1;1);"")
A9	=WENN(ZEILE()<=$B$1;DATUM(JAHR(A8);MONAT(A8)+1;1);"")
A10	=WENN(ZEILE()<=$B$1;DATUM(JAHR(A9);MONAT(A9)+1;1);"")

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

Moin und off topic!
In einem aktuellen Excel oder Excel-Online reicht eine einzige Formelzelle:

	A	B
1	Monatserste	24
2	01.05.2020
3	01.06.2020
4	01.07.2020
5	01.08.2020
6	01.09.2020
7	01.10.2020
8	01.11.2020
9	01.12.2020
10	01.01.2021
11	01.02.2021
12	01.03.2021
13	01.04.2021
14	01.05.2021
15	01.06.2021
16	01.07.2021
17	01.08.2021
18	01.09.2021
19	01.10.2021
20	01.11.2021
21	01.12.2021
22	01.01.2022
23	01.02.2022
24	01.03.2022
25	01.04.2022
26

Zelle	Formel
A2	=EDATUM("1/5/20";SEQUENZ(B1)-1)

[attachment=34926]

Gruß Ralf

(15.10.2020, 13:26)Basti567 schrieb: [ -> ]gibt es eine Möglichkeit bei Excel im VBA eine Datumsgenerator zur erstellen?

Hallo, :19:

prinzipiell so: :21:
[attachment=34927]

Statt der InputBox kannst du natürlich auch den Wert aus einer Zelle einlesen.