neuer eintrag eine zeile tiefer

Hallo zusammen
Wie muss ich den Code umstellen das wen ich eine neue Eingabe mache Sie eine Zeile tiefer eingetragen wird
Der Bereich der beschrieben werden darf ist von A32 bis A38.
Vielen Dank für eure Hilfe im voraus.
Hier mein Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Application
.ScreenUpdating = False
End With
Sheets("Lieferschein").Select
If Not Target.Column  5 Then
ThisWorkbook.Worksheets("Lieferschein").Cells(32, 1) = Target.Value
ThisWorkbook.Worksheets("Lieferschein").Cells(29, 8) = Target.Offset(0, -1).Value
ThisWorkbook.Worksheets("Lieferschein").Cells(13, 2) = Target.Offset(0, -2).Value
ThisWorkbook.Worksheets("Lieferschein").Cells(32, 4) = Target.Offset(0, 1).Value
ThisWorkbook.Worksheets("Lieferschein").Cells(32, 7) = Target.Offset(0, 2).Value
End If
With Application
.ScreenUpdating = True
End With
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hajo
Vielen Dank fuer deine Antwort.
Leider ist das nicht ganz was ich erreichen wollte.
Ich habe mich woll auch falsch ausgedrueckt. Sorry
Ich moechte das durch doppelklick in einer Zelle der Spalte D im Tabellenblatt "Hauptabelle" die Daten
aus der Zeile ins Tabellenblatt "Lieferschein" kopiert und in der Zelle A32 eingefuegt werden. Das klappt auch super mit meinem Code.
Nun möchte ich noch weitere Artikelnummern mit den gleichem Prinzip hinzufuegen aber immer eine Zeile tiefer als der vorherige und ohne den Zellinhalten Auftraggeber und Lieferscheinnummer.Zum besseren verstaentnis habe ich eine Testtabelle hochgeladen.
Ich hoffe du kannst mir helfen vielen Dank schon im vor raus.
https://www.herber.de/bbs/user/140526.xlsx

Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim iRowInput% If Target.Column = 5 Then With Worksheets("Lieferschein") If .Cells(13, 2) = "" Then .Cells(13, 2) = Target.Offset(0, -2).Value If .Cells(29, 8) = "" Then .Cells(29, 8) = Target.Offset(0, -1).Value iRowInput = Worksheets("Lieferschein").Cells(1048576, 1).End(xlUp).Row + 1 .Cells(iRowInput, 1) = Target.Value .Cells(iRowInput, 4) = Target.Offset(0, 1).Value .Cells(iRowInput, 7) = Target.Offset(0, 2).Value End With End If End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

neuer eintrag eine zeile tiefer

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread