|
Hallo,
...uuups, da fehlte noch was entscheidendes...
' **********************************************************************
' Modul: Tabelle1 Typ: Klassenmodul des Tabellenblattes
' **********************************************************************
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Cells(1, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row, 1)) Is Nothing Then
Cancel = True
Tabelle2.Cells(1, 2).Value = Target.Value
'Call Tabelle2.Activate '// <--- geht auch ohne, darum auskommentiert, wenn Du jedesmal das Tabbblatt sehen, willst Haken weg...
End If
End Sub
Gruß,
|