Datum von bis mit Uhrzeit
13.07.2020 14:34:21
bis
ich bin noch recht neu in der VBA-Welt und benötige ein wenig Hilfe:
Ich würde gerne in einer Zelle ein Startdatum angeben, in einer anderen ein End-Datum.
Der dazwischen liegende Zeitraum soll als fortlaufende Tage in einer Spalte abgebildet werden.
Bis dahin hat bei mir noch alles geklappt, da ich einen ähnlichen Thread aus vergangener Zeit gefunden habe.
Jetzt würde ich gerne jeden Tag in seine 24h mit 1h Intervallen zerlegen. Im Idealfall sollen diese Stunden dann auch als eine Art Gruppe neben dem zugehörigen Tag auftauchen.
Außerdem habe ich noch das Problem, dass ich nur eine Zielspalte angeben kann und keine Zeile in dieser Spalte, ab der die Aufzählung losgeht. Wenn ich mein C_Ziel = "B4" setze, fängt die Aufzählung bei Zeile 40 und nicht bei Zeile 4 an und die Werte hören nicht mehr bei meinem Enddatum auf, sondern an einer (augenscheinlich) zufälligen anderen Stelle.
Tausend Dank im Voraus!!
Public Sub genDates()
'Definitionen
Const C_VON = "C1" 'Zelle Start Datum
Const C_BIS = "C2" 'Zelle End Datum
Const C_Ziel = "B" 'Zielspalte
'Informationen auslesen
Dim ws As Worksheet: Set ws = ActiveSheet
Dim fromDate As Date: fromDate = ws.Range(C_VON).Value
Dim toDate As Date: toDate = ws.Range(C_BIS).Value
'Anzahl Tage bestimmen
Dim cntDays As Long: cntDays = DateDiff("d", fromDate, toDate) + 1
'Start Datum ?bernehmen
ws.Range(C_Ziel & 1).Value = fromDate
'ZielRange definieren
Dim target As Range: Set target = ws.Range(C_Ziel & "1", C_Ziel & cntDays)
'Range mit Datum f?llen
target.DataSeries , xlChronological, xlDay
End Sub