AW: Zeiträume in einzelne Datümer auflisten
21.04.2018 20:54:43
Sepp
Hallo Walter,
der Code bezieht sich auf die aktive Tabelle!
Modul Modul1
Option Explicit
Sub createList()
Dim lngRow As Long, lngIndex As Long, lngCount As Long, lngN As Long
Dim varOut() As Variant
lngCount = Evaluate("SumProduct((D2:D4 + 1) - C2:C4)")
Redim varOut(1 To lngCount, 1 To 4)
For lngRow = 2 To Application.Max(2, Cells(Rows.Count, 1).End(xlUp).Row)
For lngIndex = Cells(lngRow, 3) To Cells(lngRow, 4)
lngN = lngN + 1
varOut(lngN, 1) = Cells(lngRow, 1)
varOut(lngN, 2) = Cells(lngRow, 2)
varOut(lngN, 3) = CDate(lngIndex)
varOut(lngN, 4) = Cells(lngRow, 5)
Next
Next
Range("J2:M" & Rows.Count) = ""
Range("J2").Resize(lngCount, 4) = varOut
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
Gruß Sepp