Excel: Zeiträume auf einzelne Monate aufteilen

Hallo liebe Community,
ich wende mich heute neu an Euch, weil ich bei einem größeren Projekt nicht weiter komme und da ich in der Vergangenheit hier schon häufig Hilfe finden konnte, versuch ich mal mein Glück. Danke in jedem Fall an alle, die hier bis heute kräftig mithelfen!
Folgendes Problem. In einem Bereich stehen jeweils in einer Spalte Beginn und Ende eines Zeitraumes. Daten können beliebig sein und auch der Zeitraum ist variabel:
Spalte A |Spalte B
Beginn |Ende
19.10.2016 |18.04.2017
19.04.2017 |18.10.2017
19.10.2017 |18.04.2018
Daraus benötige ich die Zeiträume der einzelnen Monate mit dem aktuellen Monat oben in der Liste mit laufender Nummer versehen. Das Ergebnis soll so aussehen:
Spalte A|Spalte B |Spalte C
lfd. M |Beginn |Ende
14 |01.11.2017 |30.11.2017 - aktueller Monat als erster Wert der Liste
13 |19.10.2017 |30.10.2017 - Split mit gleicher laufender Nummer
13 |01.10.2017 |18.10.2017 - Split mit gleicher laufender Nummer
12 |01.09.2017 |30.09.2017
11 |01.08.2017 |31.08.2017
10 |01.07.2017 |31.07.2017
09 |01.06.2017 |30.06.2017
08 |01.05.2017 |31.05.2017
07 |19.04.2017 |30.04.2017 - Split mit gleicher laufender Nummer (hier 7)
07 |01.04.2017 |18.04.2017 - Split mit gleicher laufender Nummer (hier 7)
06 |01.03.2017 |31.03.2017
05 |01.02.2017 |28.02.2017
04 |01.01.2017 |31.01.2017
03 |01.12.2016 |31.12.2016
02 |01.11.2016 |30.11.2016
01 |19.10.2016 |31.10.2016 - Erster Monat mit laufender Nummer 1 in Spalte A
Grundsätzlich soll also immer der erste und letzte eines Monats angezeigt werden, sofern nicht Beginn und Ende des Zeitraums etwas anderes vorgibt. Wenn zusätzlich ein Projektende eingetragen ist, sollen darüber hinaus noch 2 weitere volle Monate hinzugefügt werden. Solange kein Projektende angegeben ist, wird immer der aktuelle Monat mit neuer laufender Nummer hinzugefügt - auch wenn dafür kein Zeitraum vorhanden ist.
Ich würde mich sehr freuen, wenn ihr ein paar Tipps zur Vorgehensweise hättet und bedanke mich schon mal!
fabian

Hab jetzt ein bissl mit jemandem gebastelt, der VBA deutlich besser beherrscht als ich und das ist die derzeitige Lösung, die noch zwei oder drei kleinere Fehler hat. Ich hätte es nur gerne ohne VBA gelöst. Nicht wundern: In der Original-Datei ist diese Auswertung in Tabelle 2 und N:N bezieht sich z.b. auf eine Hilfsspalte, in der Daten zusammengetragen werden. Meine Beispiel-Datei war stark vereinfacht, um nicht vom eigentlichen Thema abzulenken.

Public Function MakeList()
Dim StartDate   As Date
Dim StartM      As Long
Dim StartY      As Long
Dim EndDate     As Date
Dim EndM        As Long
Dim EndY        As Long
Dim i           As Long
Dim ersteZ      As Long
Dim letzteZ     As Long
Dim WriteLine   As Long
Dim rng         As Range
Dim ws          As Worksheet
Dim arrList     As Object
Dim arr         As Variant
Set arrList = CreateObject("System.collections.arraylist")
Set ws = ThisWorkbook.Sheets(1)
If ws.Range("D5") = "" Then
Me.Range("C10:C71").ClearContents
Me.Range("D10").ClearContents
Exit Function
End If
StartDate = ws.Range("D5")
StartM = Month(StartDate) + 1
StartY = Year(StartDate)
If IsDate(ws.Range("H5")) Then
EndDate = DateSerial(Year(ws.Range("H5")), Month(ws.Range("H5")) + 3, 0)
EndM = Month(EndDate)
EndY = Year(EndDate)
Else
EndDate = Date
EndM = Month(EndDate)
EndY = Year(EndDate)
End If
If StartM > 12 Then StartM = StartM - 12: StartY = StartY + 1
If EndM > 12 Then EndM = EndM - 12: EndY = EndY + 1
'Standardeinträge
While StartY

Private Sub Worksheet_Activate()
Call MakeList
End Sub

Excel: Zeiträume auf einzelne Monate aufteilen

Forumthread: Excel: Zeiträume auf einzelne Monate aufteilen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial