VBA ab Zeile einfügen

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Inhalt der Zellen aus dem Bereich A:G unter Doppelklick übertragen nach 'Tabelle2 erste freie zeile With Sheets("Tabelle4") .Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0).Resize(1, 1).Value = _ Range("A" & Target.Row & ":A" & Target.Row).Value End With 'Kopiermodus beenden Application.CutCopyMode = False 'Doppelklick abbrechen Cancel = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim L As Long Cancel = True If Not Intersect(Target, Range("B:G")) Is Nothing Then With Sheets("Tabelle2") L = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 If L

Hallo Werner,
Hajo danke, geht mit in meine Sammelung
richtig gelesen
Anmerkungen:
Dir ist schon klar, dass das Makro immer startet, sobald du irgendwo in der Tabelle einen Doppelklick ausführst? Ist das tatsächlich so gewollt.
JA, in die betreffenden Tabelle wird nur nach einen wert (artikel Stammdaten) gesucht.
Vielleicht kan mann Klick bereich eingrenzen auf den spalten B bis G.....!!
aber eigentliche Frage die ich noch haben ist...?
wie springe ich in die Zelle daneben wo die letze wert eingefügt wird nach doppelklick ereignis.
Sheets("Tabelle2").Activate
'hier muss in Zelle genau daneben gesprungen werden z.B. wert B10 Cursor C10 etc.
Sheets("Tabelle2").Range("c" & Target.Row).Value

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim loLetzte As Long
With Sheets("Tabelle2")
loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Offset(1).Row
If loLetzte

Beste Grüße
Hans

Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' wie im Beitrag gefordert ab B10, B2 sollte nicht mehr drin sein If Target.Column = 2 And Target.Row >= 10 Then 'Inhalt der Zellen aus dem Bereich A:G unter Doppelklick übertragen nach 'Tabelle2 erste freie zeile With Sheets("Tabelle4") .Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0).Resize(1, 1) = _ Range("A" & Target.Row & ":A" & Target.Row) End With 'Doppelklick abbrechen Cancel = True End If End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA ab Zeile einfügen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread