untenstehenden code gefunden sofern alles gut
werte einfügen ab b2, aber ich kriegen es nicht gebacken das z. B. ab B10 eingefügt wird
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
Beste DankHans