Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1620to1624
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

Zeiträume in einzelne Datümer auflisten

Zeiträume in einzelne Datümer auflisten
21.04.2018 19:15:27
WalterK
Schönen Abend,
ich suche eine "schnelle" Möglichkeit eine Liste mit diversen Zeiträumen in eine Liste mit den einzelnen Datümern aufzuteilen. Es können eben sehr viele (eventuell einige Tausend) Zeiträume sein.
Mein Angabe ist in der angehängten Excel-Datei besser ersichtlich.
https://www.herber.de/bbs/user/121184.xlsx
Besten Dank im voraus,
Servus Walter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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

Anzeige
AW: Zeiträume in einzelne Datümer auflisten
21.04.2018 21:13:41
WalterK
Hallo,
besten Dank an die Helfer.
Der Code von Sepp hat auf Anhieb funktioniert. Wie immer!!
Danke und schönen Abend.
Servus, Walter
AW: Zeiträume in einzelne Datümer auflisten
21.04.2018 20:59:09
Günther
Moin,
als "schnelle" Möglichkeit fällt mit nur VBA oder Power Query ein. Beides sollte schneller sein, als das ganze "zu Fuß" zu erledigen. Mit VBA -&gt Schleife, PQ -&gt verschiedene Quellen (engl.) im Netz.
Gruß
Günther

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige