Hallo Örv,
das folgende Makro gehört in ein allgemeines Modul deiner Excel-Arbeitsmappe:
Sub Datumsreihen()
Dim lngLetzte As Long
Dim dDatum As Date
Dim arrListe As Variant
Dim i As Long
Dim lngZeile As Long
'letzte Beschriebene Zeile in Spalte A feststellen
lngLetzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Array (Feld) für die Mitarbeiter sowie das Anfangs- und Enddatum dimensioren
ReDim arrListe(i, 3)
'Daten der Mitarbeiter ab Zeile 2 in Array einlesen
arrListe = Range("A2:C" & lngLetzte)
'1. Einfügezeile in Spalte F festlegen
lngZeile = 1
'Array durchlaufen
For i = LBound(arrListe, 1) To UBound(arrListe, 1)
dDatum = arrListe(i, 2)
'Schleife bis zum Enddatum
Do
Cells(lngZeile, 6) = dDatum & " " & arrListe(i, 1)
'Datum erhöhen
dDatum = dDatum + 1
'Zähler für Einfügezeile erhöhen
lngZeile = lngZeile + 1
'Schleife nur ausführen, solange das Enddatum nicht überschritten wird
Loop Until dDatum > arrListe(i, 3)
Next i
End Sub
Achtung:
Die Daten werden in Spalte F ab der Zeile eingefügt. Vorhandene Zellinhalte in Spalte F werden überschrieben.
Gruß
M.O.