Du musst irgendwas in deinen Zeilen haben was de Beginn eines neuen Tages kennzeichnet. Wozu brauchst du zwei Schleifen? Recht nicht eine Schleife die von 1 - (Anzahl der Personen * Besuche pro Tag) läuft?
Option Explicit
Private Sub tests()
Dim a&, b&, I&, E&, LetzteZeile&
Dim TagesDaten%(1, 1)
Dim d1 As Date
d1 = Date
TagesDaten(0, 0) = 3 'Anz Besuche Tag1
TagesDaten(0, 1) = 5 'Anz Personen Tag1
TagesDaten(1, 0) = 5 'Anz Besuche Tag2
TagesDaten(1, 1) = 7 'Anz Personen Tag2
For I = 0 To UBound(TagesDaten)
E = TagesDaten(I, 0) * TagesDaten(I, 1)
For b = 1 To E
Cells(b + LetzteZeile, 1) = DateAdd("d", I, d1)
Next
LetzteZeile = LetzteZeile + E
Next
End Sub
Hier mal ein Beispiel wie es laufen könnte, Grundlage ist eine Tabelle die für jeden Tag die Anzahl der Besuche und Personen enthält (kannst du auch problemlos aus einer anderen Excel Tabelle holen. Vielleicht hilft dir das ja weiter.
|