Ich möchte per doppelklick auf einer Zelle im Arbeitsblatt (Artickelliste)die bestimmten werte(hier A/B/C) in ein anderes Tabellenblatt (Formular)einfügen, und zwar dort, in welcher Zpalte sich der Curser befindet und dann in D/E/F einfügen.
Ich habe hier schon ein Makro aber dabei werden die Werte am Ende des Tabellenblattes eingefügt.
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