Returnera en cell adress från inputbox

[Loranga]

Hej,

Jag har ett problem som jag ska försöka förklara så gott det går...
Jag försöker att returnera adressen för en cell eller range som användaren väljer genom att klicka på en knapp (btnRange) och skulle vilja att den adressen skickas till txtInput.

Som det är nu så fungerar programmet bra om jag tex skriver B2+100 för hand i inputboxen men vad jag skulle vilja uppnå är att jag vill kunna klicka på range välja cellen B2 och då ska det stå B2 i inputboxen och inte själva cellvärdet i B2.

Private Sub btnRange_Click()

On Error Resume Next
 
Dim InputCells As Range

'Type:=0 A formula
'Type:=1 A number
'Type:=2 Text (a string)
'Type:=4 A logical value (True or False)
'Type:=8 A cell reference, as a Range object
'Type:=16 An error value, such as #N/A
'Type:=64 An array of values

Set InputCells = _
Application.InputBox(prompt:="Select cell/range", _
Title:="Select cell/range", Type:=8)

txtInput = InputCells

Call btnCalc_Click

End Sub

Private Sub btnCalc_Click()

On Error Resume Next
txtOutput.Text = Evaluate(txtInput.Text)

End Sub
Private Sub btnCopy_Click()
Dim MyDataObj As New DataObject
MyDataObj.SetText txtOutput.Value
MyDataObj.PutInClipboard
MyDataObj.GetFromClipboard
End Sub
Private Sub btnClose_Click()
Unload Me
End Sub

 

[Loranga]

Woho I fick det att fungera genom att ändra till

txtInput = InputCells.Address