Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Doppelklick

Doppelklick
25.03.2003 15:43:31
Ralf
Hallo
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Anführungszeichen?
25.03.2003 15:54:36
Nike

Hi,

laR = Sheets("Formular").Cells(Rows.Count, 5).End(xlUp).Row

Bye

Nike

Re: Doppelklick
25.03.2003 15:55:54
klausimausi64

Hi Ralf,

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
CU klaus


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige