VBA - Paste text from inputbox into cell

Question

I want a user to type a text or a number into a inputbox that pops up when you click a button. I tried different methods i found on the Internet and tried to modify the codes that they work for me.

First I tried this but after i clicked OK the box disappeared and nothing happened:

Sub inputbox()

    Dim mlt As String
    Dim myString As String
    myString = ThisWorkbook.Sheets("Bericht_BOSCH").Cells(2, 6).Value
    mlt = Application.inputbox("Insert your age:")

End Sub

Then i tried to tell my code where the text from the Inputbox has to go and added 2 rows to my code:

Range("B6").Select
ActiveSheet.Paste

Now my code selects the cell B6 after I click OK but it doesn't paste the code there. Now my question: What did I do wrong? Thank you in advance!

PaichengWu · Accepted Answer · 2018-07-23 07:39:53Z

2

Sub inputbox()
    Dim mlt As String
    Dim myString As String

    myString = ThisWorkbook.Sheets("Bericht_BOSCH").Cells(2, 6).Value
    mlt = Application.inputbox("Insert your age:")

    ActiveSheet.range("B6").value = mlt
End Sub

answered Jul 23, 2018 at 7:39

PaichengWu

2,6891 gold badge16 silver badges28 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Mathias Over a year ago

Thank you very much I feel a little dumb now xD. Have a nice day!!

Vityata · Accepted Answer · 2018-07-23 15:19:28Z

1

You can even do it in one line:

Sub TestMe()
   ThisWorkbook.Sheets("Bericht_BOSCH").Cells(2, 6) = Application.inputbox("Insert age:")
End Sub

answered Jul 23, 2018 at 15:19

Vityata

43.8k10 gold badges64 silver badges110 bronze badges

Collectives™ on Stack Overflow

VBA - Paste text from inputbox into cell

2 Answers 2

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related