Das Erstellen von Zahlenreihen mit bestimmten Abständen ist seit Excel 365 denkbar einfach - es gibt ja die Funktion SEQUENZ(). Die folgende Formel liefert eine Liste über 15 Zeilen in einer Spalte, beginnend mit 1 und mit einem Abstand von 1:
=SEQUENZ(15;1;1;1)
Benötigen Sie eine Reihe von Datumsangaben für Ihren 14-tägigen Urlaub, können Sie das verwenden:
=SEQUENZ(14;1;"05.02.2019";1)
Natürlich müssen die Zahlen als Datum formatiert werden.
Auch Uhrzeiten sind möglich - hier ab 08:00 mit einem Abstand von einer halben Stunde (als Zeit formatieren):
=SEQUENZ(17;1;"08:00";"00:30")
Verwendung in VBA
In VBA wird die Funktion am besten mit Application.WorksheetFunction.Sequence genutzt, um den Array mit den Zahlen zu erhalten. Beispiele:
- arr = Application.WorksheetFunction.Sequence(10, 1, "08:00", "00:30")
- arr = Application.WorksheetFunction.Sequence(10, 1, CDate("05.02.2019"), 1)
Verwendung/Verarbeitung des Ergebnisarrays
Bei der Verarbeitung des Ergebnisarrays ist darauf zu achten, dass die einzelnen Zahlen als Zeilen vorliegen - Ubound ist also die Zeilenzahl. Wird nur eine Spalte verwendet (immer die 1 in der Funktion), ist der Ubound auch gleichzeitig die Anzahl der Zahlen. In diesem Fall muss also auf die erste Spalte jeder Zeile zugegriffen werden:
For intI = 1 To UBound(arr)
MsgBox intI & ": " & arr(intI, 1)
Next
Hinweis: Bei Ausgaben von Datumsangaben und Zeiten müssen diese noch formatiert werden, zum Beispiel Format(arr(intI, 1), "hh:nn") für die Zeitangaben.
Etwas anders verhält es sich, wenn die Sequenz mehrspaltig erstellt wurde, zum Beispiel mit zwei Spalten:
arr = Application.WorksheetFunction.Sequence(10, 2, "08:00", "00:30")
Dann wird mit arr(intI, 1) nur die erste Spalte verarbeitet; bei einer Ausgabe wären das nur die vollen Stunden. In dem Fall muss dann auch auf die zweite Spalte zugegriffen werden:
MsgBox intI & ": " & Format(arr(intI, 1), "hh:nn") & vbTab & Format(arr(intI, 2), "hh:nn")
Das letzte Beispiel im Ganzen zum Testen:
Sub Sequenz_vba()
Dim arr, intI As Integer
arr = Application.WorksheetFunction.Sequence(10, 2, "08:00", "00:30")
For intI = 1 To UBound(arr)
MsgBox intI & ": " & Format(arr(intI, 1), "hh:nn") & vbTab & Format(arr(intI, 2), "hh:nn")
Next
End Sub