Ich habe hier ein Makro mit dem ich per doppelklick werte (Celle A/B/C) aus dem Tabellenblatt "Artikelliste" die werte in das Tabellenblatt " Formular " einfüge ( In Celle D/E/F). Das klapt auch wunderbar aber jetzt sollen die werte von Tabellenblatt "Artikelliste"In das Tabellenblatt "Formular " an der Stelle eingefügt werden,in der Reihe wo der Cuser sich gerade befindet (Active celle) und dann die Werte in D/E/F einfügen.
Hier das Makro
Option Explicit
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