Wie ändert man diesen Code das er nur den Bereich A-D kopiert?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myrow
Dim mycell
Dim wksQ As Worksheet
Dim wksZ As Worksheet
mycell = ActiveCell.Address
Set wksQ = Worksheets("Tabelle2") ' Anpassen deine Quelldatei
Set wksZ = Worksheets("Ziel") ' Anpassen deine Zieldatei
wksZ.Activate
myrow = wksZ.Cells(Rows.Count, 1).End(xlUp).Row + 1 'die erste freie Zeile in der Zieldatei
wksZ.Cells(myrow, 1).Select
wksQ.Range(mycell).EntireRow.Copy ' Wenn Copy durch Cut ersetzt wird, wird ausgeschnitten
wksZ.Paste
Application.CutCopyMode = False 'Kopier- oder Ausschneidemodus wird beendet
End Sub
Der Code kopiert mir per Doppelklick in einer Zelle von Spalte A die ganze Zeile und kopiert sie mir in anderes Tabellenblatt. Ich möchte aber nur den Bereich bis Spalte D kopieren.Wie immer an euch
Meinen herzlichsten Dank für eure Unterstützung
Luna