Op een Userform de TextBox vullen.

[ExcelAmateur]

Hallo,

Is het ook mogenlijk om een TextBox op een Userform te vullen vanaf de juiste datum?
B.V.B. zoek de datum op regel 1 en plaats de gegevens van regel 3 er onder in de TextBox.

Weet iemand hier de code voor, als het mogenlijk is?

Alvast bedankt.

 

[LucB]

Probeer dit eens met TextBox1 op het UserForm.

Private Sub UserForm_Initialize()
    If Range("A1") = Date Then  'Date is de datum van vandaag
        TextBox1 = Range("A3")
    Else
        TextBox1 = "datum onjuist"
    End If
End Sub

 

[ExcelAmateur]

Lucht,

Hartelijk bedankt voor de code.
De range waar hij moet zoeken is AH1 tot AG1

Dit is mischien wat lastiger.
Ik wacht nog even af.

 

[Cobbe]

Deze moet dat toch aankunnen:

Private Sub UserForm_Initialize()
    For Each dt In Range("AH1:AG1")
       If dt = Date Then  'Date is de datum van vandaag
        Me.TextBox1 = dt.Offset(3)
     Else
        Me.TextBox1 = "onjuiste datum"
       End If
    Next
End Sub

 

[ExcelAmateur]

Cobbe,

Hartelijk dank voor de code.

 

[Warme bakkertje]

Of

Private Sub UserForm_Initialize()
    For Each dt In Range("AH1:AG1")
       TextBox1 = IIf(dt = Date, dt.Offset(3), "onjuiste datum")
    Next
End Sub