ich möchte in einem WB1 den Inhalt einer angeklickten Zelle eines WS kopieren und in die zuvor angeklickte Zelle eines WS eines 2. WB einfügen:
Sub CustomBud()
Dim wb1 As Workbook
Dim wb2 As Workbook
Set wb1 = Workbooks("Kundenbudget_IOE.xls")
Set wb2 = Workbooks("IOE_TEST.xls")
wb1.ActiveSheet.ActiveCell.Copy
wb2.ActiveSheet.ActiveCell.PasteSpecial Paste:=xlValues, Operation:=xlNone
CutCopyMode = False
End Sub
Leider bricht Excel ab: "Objekt untertützt Eigenschaft oder Methode nicht".
Wie muß das denn richtigerweise lauten?
Vielen Dank für Eure Hilfe.
Gruß
Torsten