wie kann ich durch einen Doppelklick in eine Zelle die ganze Zeile nach Tabelle1 (nächste leere Zeile) kopieren?
Danke für eure Hilfe.
Gruße Sören
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim z As Long
Cancel = True
With Sheets("Tabelle1")
z = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Target.EntireRow.Copy .Rows(z)
End With
End Sub