Wegschrijven van gegevens naar cel via userform

[DCTALK]

Beste lezer,

in een nummeringslijst die wij gebruiken om unieke nr's aan te maken voor calculaties gebruik ik een userform die een aantal gegevens verwerkt. Kort geleden heb ik dit aangevuld met uitbreiding. Zodat als je een code invult die staat
voor 1=lopende offerte 2=opdracht ect.
als je bijvb 2 invult verschijnt er een popup, met de vraag wat de aanneemsom is, er onderkun je deze dan invullen, alleen hoe krijg ik dan de aanneemsom die ingevuld wordt in een cel die ik graag zou willen.

als je een idee hebt hoor ik deze graag.

vr gr CvO

 

[DCTALK]

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("nummering")

If Trim(Me.TextBox1.Value) = "" Then
  Me.TextBox1.SetFocus
  MsgBox "Aanneemsom invullen", vbExclamation
    Exit Sub
End If

ws.Cells(iRow, 14).Value = Me.TextBox1.Value

Me.TextBox1.Value = ""

Unload Me
End Sub

hierbij nog de code die ik gebruik, maar dit klopt niet helemaal.
hoop dat jullie me kunnen helpen.

alvast bedankt

 

[Warme bakkertje]

Je wil het resultaat dus in een variabele cel kunnen invullen ?
Gebruik dan Application.Inputbox waar je een Range kan invullen.

 

[DCTALK]

beste Rudi,

ja klopt, de output komt in een variable cel te recht (kolom wel vast)
ik ga het proberen, dank je