vullen van de database in Excel

[dabber09]

Hallo
Ik heb een formulier gemaakt en als ik in het pul down een naam selecterr moet deze in cel A1 worden ingevuld.
Met de knop invoeren doe ik de rest invullen maar dan moet A1 niet meer veranderen behalve als ik een nieuw formulier maak.
Kan mij iemand een makkelijke tip geven?

 

[AHulpje]

Zonder je voorbeelddocument een gokje:

Private Sub ComboBox1_Change()
    Range("A1").Value = ComboBox1.Text
End Sub

 

[mvdvlist]

Als je voor je "PullDown"de naam ComboBox1 gebruikt en verder TextBoix1 tm Textbox3 dan zou je het ZO kunnen maken. Kun je ook nog eea aanpassen:

Private Sub btnINVOEREN_Click()  'Dit is je INVOEREN button, evt naam veranderen.
  'On Error Resume Next
 arr = Array(ComboBox1.Value, TextBox1.Value, TextBox2.Value, TextBox3.value)

 With Blad1.ListObjects(1)
  If ListBox1.ListIndex > -1 Then
   .DataBodyRange.Cells(ListBox1.ListIndex + 1, 1).Resize(, 4) = arr
   Else
   .ListRows.Add.Range.Resize(, 4) = arr
  End If
 End With
End Sub

Je output moet WEL in een tabel staan uiteraard