input fra userform

Fx:

Sheets("Ark1").Range("A1").Value = UserForm1.TextBox1.Text

Toppen, det virker perfekt.

brynil, points er dine.

Nej tak - brug dem til de svære spm! ;))

Takker, men ved ikke lige helt, hvordan jeg trækker dem tilbage...

Skal nok bruge dem på de svære ;)

Du skal have dem, hvordan tilføjere en items til en combobox?????
AddItem??

With ComboBox1
  .AddItem "Text"
  .AddItem "Anden text"
End With

Placeres normalt i:

UserForm_Initialize()

Når du skal hente værdien fra den, fx til en variabel x:

x = ComboBox1.SelText

Ex- en userform med en ComboBox1 og en CommandButton1, værdier i Ark1 i A1 til A5:

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 5
    ComboBox1.AddItem Sheets("Ark1").Cells(i, 1).Value
Next i
End Sub

Private Sub CommandButton1_Click()
Dim x
x = ComboBox1.SelText
MsgBox x
End Sub

Når jeg kører dem får en en fejl 424 - Object required

Her, er de, prøver lige at sidde og rode lidt med det...

mine item i combobox er faste, kan jeg bare skrive dem ind, i VB editor, Hvordan??

Ja, som jeg skrev 21:30:10.

Min fejl, glemte at ændre Combobox1 til mit eget object.

Iøvrigt - du trækker point tilbage ved at ligge et svar og tildele point til dig selv!

Tak for point :))

Okay...  Mange tak det virker bare....