|
Hallo,
null Problemo für Commander McLane Rücksturz ins Kino ähem Rücksprung ins VBA-Universum genehmigt und freigegeben durch Tamara Jagellovsk...;-)
' **********************************************************************
' Modul: Tabelle1 Typ: Klassenmodul des Tabellenblattes
' **********************************************************************
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range(Cells(7, 5), Cells(11, 9))) Is Nothing Then
Cancel = True
With Tabelle2
If Not .prpobjTarget Is Nothing Then
.prpobjTarget.Value = Target.Value
Call .Activate
End If
End With
End If
End Sub
' **********************************************************************
' Modul: Tabelle2 Typ: Klassenmodul des Tabellenblattes
' **********************************************************************
Option Explicit
Private mobjTarget As Range
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range(Columns(9), Columns(11))) Is Nothing Then
Cancel = True
With Tabelle1
Set mobjTarget = Target
Call Application.Goto(Reference:=.Range(.Cells(7, 5), .Cells(11, 9)))
End With
End If
End Sub
Friend Property Get prpobjTarget() As Range
Set prpobjTarget = mobjTarget
End Property
Gruß,
|