Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1664to1668
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Aufsteigendes Datum

Aufsteigendes Datum
10.01.2019 11:25:32
Nomanarmy
Hallo zusammen,
ich möchte über VBA folgendes erreichen, komme aber leider nicht auf die Lösung.
A | B | C
Eingabe Eingabe Ausgabe
1 14.02.2019 2 14.02.2019
2 28.02.2019
Und zwar soll die VBA Funktion in ZEile C1 das datum aus Zeile A1 im erstenschritt wiedergaben und im zweiten Schritt abhängig von ZEile B1 14 Tage adieren und das sooft wie das in Zeile B1 verlangt wird.
Wenn dann in Zeile B1 in 3 Steht würde es wie folgt aussehen:
A | B | C
Eingabe Eingabe Ausgabe
1 14.02.2019 3 14.02.2019
2 28.02.2019
3 14.03.2019

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aufsteigendes Datum
10.01.2019 12:39:56
Rudi
Hallo,
Sub aaa()
Dim vArr(), i As Integer
ReDim vArr(1 To Range("B1"), 1 To 1)
For i = 1 To UBound(vArr())
vArr(i, 1) = Range("C1") + (i - 1) * 14
Next
Range("A1").Resize(UBound(vArr)) = vArr
End Sub

Das geht aber auch per Formel.
Gruß
Rudi
AW: Aufsteigendes Datum
10.01.2019 14:41:01
Nomanarmy
DANKE! PERFEKT!
Ich wollte bewusst keine Formel verwenden. Da ich viele Werte habe und die unterschiedlich oft vorkommen.
Vielen DAnk!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige