VBA 使用 InputBox 定义工作表的名称并将其存储在变量中

Question

I am searching for hours now and no solution, I am trying to define a variable from InputBox, to use it as Sheet name and copy value from range A1.

the sheet name should be the one from Inputbox..

Dim wss As String
wss = InputBox("Sheet name")
Sheets("EBS Posting template").Range("A1") = Wss.Range("A1")

This isn't working either

Sheets("EBS Posting template").Range("A1") = Sheets(Wss).Range("A1")

Answer 1

this works for me. I think the issue is that you missed the value at the range:

Sub Makro1()
Dim wss As String
wss = InputBox("Sheet name")
Sheets("Tabelle1").Range("A1").Value = Sheets(wss).Range("b1")

End Sub