Datum im Kombinationsfeld auswählen, Heute +5 Tage

[rbaltermi]

Hallo Zusammen

Mir hat der Code für die Selektion aktueller Daten in einem Kombinationsfeld

Code [Auswählen] Erweitern


Private Sub Form_Load()

   Dim iCounter As Integer
   
   Me.Kombinationsfeld0.RowSource = Format(Date, "dd.mm.yyyy")
   For iCounter = 1 To 14
       Me.Kombinationsfeld0.RowSource = Me.Kombinationsfeld0.RowSource & ";" & Format(Date - iCounter, "dd.mm.yyyy")
   Next iCounter
   
End Sub


sehr geholfen. Ich möchte jedoch die nächsten 5 Tage anzeigen. (Heute + 5 Tage).  Kann mir jemand einen Tipp geben?

Danke

Roli

[MzKlMu]

Hallo,
aus 14 mach 5 und aus - mach + 

Code [Auswählen] Erweitern

Private Sub Form_Load()

    Dim iCounter As Integer
   
    Me.Kombinationsfeld0.RowSource = Format(Date, "dd.mm.yyyy")
    For iCounter = 1 To 5
        Me.Kombinationsfeld0.RowSource = Me.Kombinationsfeld0.RowSource & ";" & Format(Date + iCounter, "dd.mm.yyyy")
    Next iCounter
   
End Sub

[rbaltermi]

Danke Das habe ich glatt übersehen!