MaikBisschop
Gebruiker
- Lid geworden
- 19 mrt 2018
- Berichten
- 39
Hallo,
Ik ben bezig om een excelblad alleen invulbaar te maken d.m.v. userforms die openen bij het openen van het werkblad.
Nu heb ik drie textboxen en wil ik graag dat wanneer alle drie de textboxen, twéé of meerdere karakters bevatten, de CommandButton2 zichtbaar
wordt (De knop om naar de volgende userform te gaan).
Mijn idee was dan ook wanneer één van de textboxen ( TextBox1, TextBox2 of
TextBox3 ) meer dan twéé karakters bevat, de bijbehorende variabele "(Memory1, Memory2 of Memory3) "True" wordt. Dus bijvoorbeeld:
Alleen werkt dit niet dus post ik hier mijn code, met de vraag hoe het wel kan.
(Alleen het stukje waar het om gaat)
Ik werk +/- nog maar een week met VBA, en heb nog niet de nodige kennis om te zien waar het misgaat.
Ik hoop dat jullie mij kunnen helpen!
Met vriendelijke groet,
Maik Bisschop
Ik ben bezig om een excelblad alleen invulbaar te maken d.m.v. userforms die openen bij het openen van het werkblad.
Nu heb ik drie textboxen en wil ik graag dat wanneer alle drie de textboxen, twéé of meerdere karakters bevatten, de CommandButton2 zichtbaar
wordt (De knop om naar de volgende userform te gaan).
Mijn idee was dan ook wanneer één van de textboxen ( TextBox1, TextBox2 of
TextBox3 ) meer dan twéé karakters bevat, de bijbehorende variabele "(Memory1, Memory2 of Memory3) "True" wordt. Dus bijvoorbeeld:
Code:
If Len(Me.Textbox1.Text) >= 2 Then
Memory1 = True
Alleen werkt dit niet dus post ik hier mijn code, met de vraag hoe het wel kan.
(Alleen het stukje waar het om gaat)
Code:
Private Sub UserForm_initialize()
'///////////////////////////////////////
Dim Memory1 As Boolean
Dim Memory2 As Boolean
Dim Memory3 As Boolean
Dim Memory4 As Boolean
'///////////////////////////////////////
If Len(Me.TextBox1.Text) >= 2 Then
Memory1 = True
Else
Memory1 = False
End If
If Len(Me.TextBox2.Text) >= 2 Then
Memory2 = True
Else
Memory2 = False
End If
If Len(Me.TextBox3.Text) >= 2 Then
Memory3 = True
Else
Memory3 = False
End If
'///////////////////////////////////////
If Memory1 = True And Memory2 = True And Memory3 = True Then
CommandButton2.Enabled = True
Else
CommandButton2.Enabled = False
End If
'///////////////////////////////////////
End Sub
Ik werk +/- nog maar een week met VBA, en heb nog niet de nodige kennis om te zien waar het misgaat.
Ik hoop dat jullie mij kunnen helpen!
Met vriendelijke groet,
Maik Bisschop