AW: Doppelklick
24.01.2009 13:39:00
Tino
Hallo,
so müsste es gehen. (doppelklick in Zelle geht nicht mehr)
kommt als Code in Tabelle1
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim LRow As Long
Dim LCol1 As Long, LCol2 As Long
Cancel = True
LRow = Target.Row
With Sheets("Tabelle2")
LCol1 = .Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0).Row
LCol2 = .Cells(.Rows.Count, 3).End(xlUp).Offset(1, 0).Row
LCol1 = IIf(LCol1 < LCol2, LCol2, LCol1)
Cells(LRow, "I").Copy .Cells(LCol1, 2)
Cells(LRow, "K").Copy .Cells(LCol1, 3)
End With
End Sub
Gruß Tino