Ich habe folgenden Code um Zeilen zu kopieren.
Nun will ich aber bei Doppelklick in Spalte P den Werte J in die erste Freie Zelle in Spalte A in eine andere Arbeitsmappe kopieren. Hat da jemand einen Lösungsvorschlag?
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngRow As Long
Dim lngZei As Long, lngSpa As Long, ZeiTitel As Long
Dim strMsg As String
If Not Intersect(Target, Range("P5:P13000")) Is Nothing Then
Cancel = True
Select Case Target.Column
Case 16
Target = Now
With Worksheets("Auftragseingänge")
lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Target.Offset(, -6).Resize(, 1).Copy .Target
'nach Übergabe Zeile löschen in Projektübersicht
End With
Case Else
'do nothing
End Select
End If
End Sub