Zeilen kopieren
Andreas
Den nachstehenden Code habe ich in im Forum recherchiert. Wie müsste dieser Code aussehen, wenn ich ihn als "normales" Macro (Sub Termine()) laufen lassen möchte? Zudem sollte nicht nur die aktive Zeile sondern alle zeilen kopieren, in in deren Zelle (B39 bis B50) ein wert steht.
Kann mir da jemand helfen?
Vorerst vielen Dank
Andreas
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim wks As Worksheet, lngRow As Long, lngR As Long
If Target.Count > 1 Then Exit Sub
If Target.Column 1 Then Exit Sub
Set wks = Worksheets("Termine")
lngRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
lngR = Target.Row
Range(Cells(lngR, 1), Cells(lngR, 15)).Copy wks.Cells(lngRow, 1)
Cancel = True
End Sub