meerdere criteria bij een textbox

[Kwabbernoot1980]

Ik hoop dat weer iemand mij kan helpen met het volgende probleem.

Mijn Userform heeft 2 TextBoxen waarbij TextBox4 een tijd weergeeft (bv. 04:00). Nu wil ik in een andere TextBox (TextBox100) de tekst “1 dagdeel” weergeven als de tijd in TextBox4 groter is dan 00:01 en kleiner dan 04:00. Is de tijd groter dan 04:01 en kleiner dan 08:00 dan wil ik dat er “2 dagdelen” in TextBox100 verschijnt.

Ik heb onderstaande code al proberen aan te passen, groter dan 00:01 lukt wel en geeft “1 dagdeel”. Het 2e deel van de code werkt niet. Als ik er bv. End if tussenplaats werkt alleen het 2e gedeelte van de code en krijg ik steeds “2 dagdelen”.
Alvast dank voor de hulp.

Dave


Code:
Private Sub TextBox4_Change()

If TextBox4 >= "00:01" Then
TextBox100 = "1 dagdeel"
Else: TextBox100 = ""

If TextBox100 >= "04:01" Then
TextBox100 = "2 dagdelen"
Else: TextBox100 = ""

End If
End If
End Sub

 

[royb3]

iets als?
If TextBox4 >= "00:01" and TextBox4 <= "04:00" Then
TextBox100 = "1 dagdeel"
Else: TextBox100 = ""

 

[Kwabbernoot1980]

Hey Roy

Dan lukt het eerste gedeelte, maar het 2e krijg ik niet aan de praat. Doe ik bv onderstaande code dan werkt enkel het onderste gedeelte dus vanaf 04:00. Doe ik het onderste deel van de code weg dan werkt het wel tussen 00:01 en 04:00.

Private Sub TextBox4_Change()

If TextBox4 >= "00:01" And TextBox4 <= "04:00" Then
TextBox100 = "1 dagdeel"
Else: TextBox100 = ""

End If

If TextBox4 >= "04:01" And TextBox4 <= "08:00" Then
TextBox100 = "2 dagdelen"
Else: TextBox100 = ""

End If
End Sub

 

[Kwabbernoot1980]

Yes... Hoewel ik dacht alles gedaan te hebben is het nu wel gelukt. Roy bedankt voor de voorzet...