Ich habe ein code welcher mir Dir Zeilen aus einer Tabelle in die unterste leere Zeile eines weiteren Tabellenblattes schreibt. (gefällt soweit ganz gut)
Kann man den Code abändern das er die nächst leere Zeile verwendet ?
d.h.
-Doppelklick
-Zeile Kopieren
-aufruf Tabelle 2
-Zeile suchen wo in Spalte E kein eintrag
-Zeile einfügen
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim lngZielZeile As Long
If Not Intersect(Target, [A:Q]) Is Nothing Then
lngZielZeile = Worksheets("Übergabe").Cells(Rows.Count, 5).End(xlUp).Row + 1
Range(Cells(Target.Row, 1), Cells(Target.Row, 13)).Copy _
Destination:=Worksheets("Übergabe").Range("C" & lngZielZeile)
End If
Cancel = True
End Sub
P.S.Eine rutine dahinter zu gestallten mit leerzeilen einfügen bringt mir nichts !