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