Doppelklick
26.03.2003 17:15:57
Ralf
Ich habe hier ein Makro das mir beim Doppelklichk auf eine zelle die passenden werte in ein anderes tabellenblatt einfügt. Nun möchte ich aber das die werte in der reihe in D E F eingefügt werden , wo sich der Curser gerade befindet ist das möglich ???
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim laR As Long
laR = Sheets("Formular").Cells(Rows.Count, 5).End(xlUp).Row
If laR < 23 Then laR = 22
Worksheets("Formular").Cells(laR + 1, 4).Value = Worksheets("Artikelliste").Cells(Target.Row, 1).Value
Worksheets("Formular").Cells(laR + 1, 5).Value = Worksheets("Artikelliste").Cells(Target.Row, 2).Value
Worksheets("Formular").Cells(laR + 1, 6).Value = Worksheets("Artikelliste").Cells(Target.Row, 3).Value
End Sub
MfG Ralf