Input Form in Excel

[JanBG]

Hallo,

Een beetje op de gok:

Als knop annuleren is bedoeld om het Userform te sluiten, dan is de code:

Private Sub CommandButton1_Click()
Unload Me
End Sub

Als knop aanpassen is bedoeld om het formulier leeg te maken, dan is de code:

Private Sub CommandButton2_Click()
For Each Ctrl In Controls
If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "ComboBox" Or TypeName(Ctrl) = "ListBox" Then Ctrl.Value = ""
If TypeOf Ctrl Is MSForms.OptionButton Then Ctrl.Value = False
Next
End Sub

Knop toevoegen: bepalen waar de informatie moet worden weggeschreven:

Private Sub CommandButton3_Click()
Blad1.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 26) = Array(TextBox1, TextBox2, ComboBox3, ListBox1)
End Sub

Het eerste deel van de code (tot het = teken) geeft aan waar in het werkboek de informatie moet worden weggeschreven
Achter "Array" wordt aangegeven in welke volgorde de informatie uit TextBox, ListBox, ComboBox moet worden weggeschreven