Guten Tag zusammen,

Ihr seid sozusagen mein "letzte Hoffnung"... :-)

Ich möchte gerne mit einem Doppelklick in einer beliebigen Zelle im "Arbeitsblatt1" erreichen, das deren Inhalt in das Arbeitsblatt "Tabelle2, D7" kopiert wird
und gleichzeitig das Abreitsblatt2 geöffnet wird.

Einzeln funktioniert die auch mit folgenden Einzelcodes. Die Frage ist ob und wie ich diese beiden Codes in einen Code zusammenfassen kann?

Beste Grüße und schon einmal vielen Dank für Eure Unterstützung
Marcus


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("Tabelle2").Range("D7").Value = ActiveCell.Value
Cancel = True
End Sub


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Worksheets("Tabelle2").Activate
End Sub