VBA - 将输入框中的文本粘贴到单元格中

Question

我希望用户在单击按钮时弹出的输入框中键入文本或数字。我尝试了在 Internet 上找到的不同方法，并尝试修改它们为我工作的代码。

首先我尝试了这个，但是在我点击确定之后，这个框消失了，什么也没发生:

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

然后我试图告诉我的代码输入框中的文本必须去哪里，并在我的代码中添加了 2 行:

Range("B6").Select
ActiveSheet.Paste

现在我的代码在我单击“确定”后选择了单元格 B6，但它没有将代码粘贴到那里。现在我的问题是:我做错了什么？先感谢您!

Answer 1

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