Clever-Excel-Forum

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.

Zitat: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

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!

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

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

holg620

holg620

Kuwer

holg620