Hallo YvC,

hier mijn beperkte bijdrage:

Het macro-tje werkt normaal wel, maar ergens krijg ik steeds de fotmelding "Endif zonder blok If", ik weet niet wat ik mis doe met deze simpele If-Then-EndIf .

Maar de gedachtengang erachter werkt.
Enabeled = False voor je CommandButton en volgende Textboxen, tot dat er een waarde <> dan niets in de vorige Textbox staat, om uiteindelijk ook commandbutton te Enabled=True te zetten.

De rest moet je zelf invullen.

Sub TextBox1_Change()
'TextBox1.Value = "" Werkt niet bij een Sub....Change()
'TextBox2.Value = "" Werkt niet bij een Sub....Change()

CommandButton1.Enabled = False
TextBox2.Enabled = False
Dim een As String
Dim twee As String
een = TextBox1()
'Worksheets(1).Range("A1").Value = een  '(Optioneel)
'If een <> "" Then Worksheets(1).Range("F3").Value  = "actief" '(Optioneel)
If een <> "" Then TextBox2.Enabled = True
twee = TextBox2()
'Worksheets(1).Range("A2").Value = twee '(Optioneel)
'If twee <> "" Then Worksheets(1).Range("A2").Value = "juist"  '(Optioneel)
'EndIf
If twee <> "" Then CommandButton1.Enabled = True
endIf
End Sub

SoftAid

Misschien nog een kleine aanvulling op SoftAid: je kan ook de eigenschap ".visible" gebruiken van een besturingselement op een userform.

Misschien is het ook geen slecht idee om de controle die je uitvoert apart als een (publieke) boolean functie te schrijven. Die functie geeft 'true' weer als alle tekstvakken zijn ingevuld en geeft 'false' weer als er tekstvakken nog blanco zijn. Je kan ze bovendien van gelijk waar aanroepen.

De voordelen: je schrijft maar 1 functie en dus ook maar 1 keer code. Je kan de functie aanroepen na elke afterupdate event voor alle zes de textboxen via een eenvoudig

cmdBevestig.enabled = controlefunctie()

waarbij controlefunctie dus de naam is van de zelf geschreven boolean functie...


JkPk