[VBA] Klick auf Zelle - Wert übertragen

[holg620]

Hallo zusammen,

in einer Tabelle befinden sich in Spalte E:3 bis E:Ende Nummern.

Ich möchte, wenn man auf eine Zelle klickt, sich ein anderes Sheet öffnet und diese Nummer aus Zelle E:XXXX
in eine Zelle dort übertragen wird.

Ich habe grundsätzlich schon etwas zusammengeflickt, aber es funktioniert nicht und müsste noch ergänzt werden.

Sub Detailsöffnen()
Range...(was muss hier stehen?)
Workbooks.Open Filename:= _
"U:\Controlling\01_Projektcontrolling\Projektcontrolling - Einzelansicht.xlsm"
Range("D4").Select
ActiveCell.FormulaR1C1 = Was muss hier stehen?(Workbooks(Projektcontrolling - Gesamtansicht.xlsx").Worksheets(Tabelle2).Range....?)
Range("D5:G5").Select
End Sub

Vielen Dank

[holg620]

andere möglichkeit:

Sub detailsöffnen()
If ??? Range("E3:???????").Select
Selection.Copy
Workbooks.Open Filename:= _
"U:\....\Projektcontrolling - Einzelansicht.xlsm"
Range("D4").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("E4").Select
End Sub


Oder:


Private Sub Worksheet_BeforeDoubleClick()
Target.Copy
Workbooks.Open Filename:= _
"U:\...\Projektcontrolling - Einzelansicht.xlsm"
Range("D4").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("E4").Select
End Sub



Letztere ist denke ich am besten, aber auch das funktioniert noch nicht!

[Kuwer]

Hallo,

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Workbooks.Open(Filename:="U:\...\Projektcontrolling - Einzelansicht.xlsm").Sheets(1).Range("D4").Value = Target.Value
  Cancel = True
End Sub

Gruß Uwe

[holg620]

Danke, es klappt wieder einmal wunderbar und so einfach in nur einem Befehl :)