Datum zwischen Anfangs- und Enddatum auffüllen

Hallo an alle Helfenden!
Ich hatte vor geraumer Zeit mal eine Formel oder ein Makro gefunden, welches mir zwischen einen Anfangs- und Enddatum in regelmäßigen oder unregelmäßigen Abständen Datumswerte schreibt. Was ich meine mal an einem Beispiel:
Anfangsdatum: 01.10.2012
Enddatum: 31.10.2012
Tabelle1

	A	B
1		Datum
2	Anfangsdatum:	01.10.2012
3	aufgefülltes Datum	04.10.2012
4	aufgefülltes Datum	07.10.2012
5	aufgefülltes Datum	10.10.2012
6	aufgefülltes Datum	13.10.2012
7	aufgefülltes Datum	16.10.2012
8	aufgefülltes Datum	19.10.2012
9	aufgefülltes Datum	22.10.2012
10	aufgefülltes Datum	25.10.2012
11	aufgefülltes Datum	28.10.2012
12	Enddatum:	31.10.2012

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Wie im Beispiel zu sehen, soll im Abstand zwischen dem Anfangs- und Enddatum Datumswerte in Abständen von 3 Tagen aufgefüllt werden.
Weiß jemand, wie ich das am Einfachsten realisieren kann. Ich hatte, wie bereits eingangs erwähnt, so etwas schon mal gefunden, weiß nur nicht mehr wo.
Danke Euch schon mal im Voraus,
Kasimir

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Datum_aufteilen() On Error GoTo Fehler Dim TB, Sp%, R1%, i%, Teiler%, Diff%, Anz% Dim Start, Ende As Date Set TB = ActiveSheet Sp = 2 'Spalte B R1 = 1 'Erste Zeile Teiler = InputBox("Abstand?", , 3) Application.ScreenUpdating = False With TB Start = TB.Cells(R1, Sp) Ende = TB.Cells(R1 + 1, Sp) Diff = Ende - Start If Diff Mod Teiler 0 Then MsgBox "Keine gleichmäßige Aufteilung möglich" Exit Sub End If For i = (Diff / Teiler) - 1 To 1 Step -1 .Rows(R1 + 1).Insert xlDown .Cells(R1 + 1, Sp).Value = Start + i * Teiler Next End With Err.Clear Fehler: If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear End Sub

Hi Kasimir,
wo sollen Anfangs- und Enddatum und die Schrittweite vorgegeben werden?
Hier mal zwei weitere VBA-Makro-Versionen:

	A	B	C	D
1	Start	01.10.2012
2	Ende	20.10.2012
3	Intervall-Tage	3
4	Ausgabe ab	A7
5
6	DatumslisteE	DatumslisteV	DiffE	DiffV
7	01.10.2012	01.10.2012
8	04.10.2012	04.10.2012	3	3
9	07.10.2012	06.10.2012	3	2
10	10.10.2012	09.10.2012	3	3
11	13.10.2012	12.10.2012	3	3
12	16.10.2012	15.10.2012	3	3
13	19.10.2012	17.10.2012	3	2
14	20.10.2012	20.10.2012	1	3

Formeln der Tabelle

Zelle	Formel
C8	=A8-A7
D8	=B8-B7

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
In den Spalten C und D siehst du die Differenzen zwischen den Tagen in A und B.
Welche Version brauchst du?
Und hier die Codes dazu:


Option Explicit
Sub DatumslisteE()
Dim arrD() As Date, ii As Long
ReDim arrD(1 To 1 + Int((Cells(2, 2) - Cells(1, 2) + Cells(3, 2) - 1) / Cells(3, 2)), 0)
For ii = 1 To UBound(arrD)
arrD(ii, 0) = Application.Min(Cells(1, 2) + (ii - 1) * Cells(3, 2), Cells(2, 2))
Next ii
With Range(Cells(4, 2)).Resize(UBound(arrD))
.NumberFormatLocal = "TT.MM.JJJJ"
.Value = arrD
End With
End Sub
Sub DatumslisteV()
Dim arrD() As Date, dblD As Double, ii As Long
ReDim arrD(1 To 1 + Int((Cells(2, 2) - Cells(1, 2) + Cells(3, 2) - 1) / Cells(3, 2)), 0)
dblD = (Cells(2, 2) - Cells(1, 2)) / (UBound(arrD) - 1)
For ii = 1 To UBound(arrD)
arrD(ii, 0) = Application.Round(Cells(1, 2) + (ii - 1) * dblD, 0)
Next ii
With Range(Cells(4, 2)).Offset(, 1).Resize(UBound(arrD))
.NumberFormatLocal = "TT.MM.JJJJ"
.Value = arrD
End With
End Sub

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Beliebteste Forumthreads (12 Monate)

Datum zwischen Anfangs- und Enddatum auffüllen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datum zwischen Anfangs- und Enddatum auffüllen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread