Doppelklick
25.03.2003 15:43:31
Ralf
Ich habe hier ein Makro mit dem ich in Tertabelle Artickelliste einen Artikel per doppelklick in die Tabelle Formular einfügen möchte die Daten sollen sich immer am Ende der Tabelle anfügen.
Die daten in der Artickelliste stehen in den Spalten A B C und sie sollen in D E F der Tabelle Formular eingefügt werden aber irgend ein Fehler ist in dem Makro und ich kann Ihn leider nicht finden.
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
Anzeige