Hallo Ricardo,
wenn ich recht verstehe, dann so:
Private Sub CommandButton1_Click()
Dim StrAnfordern As Range
Dim WB As String
WB = "J:\SonstigeProjekte..\Vorlage.xlsm"
Set StrAnfordern = Application.InputBox("Bitte markieren Sie die Bestellnummer.", , , , , , , Type:=8)
Range(StrAnfordern.Address).Copy
Workbooks.Open (WB)
Range("A5").PasteSpecial xlPasteValues
End Sub
Gruss Torsten
|