MsgBox
20.12.2019 07:59:12
Stefan
Ich kopiere mit einem Doppelklick mit folgendem Code eine Reihe in eine andere Mappe.
Wie bekomme ich es hin das nach dem Doppelklick erst eine MsgBox kommt und ich nochmal bestätigen muß bevor der Kopiervorgang ausgeführt wird, oder auch abgebrochen werden kann.
'Datum einfügen bei Doppelklick
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("T4:AB250")) Is Nothing Or _
Target.Count > 1 Then Exit Sub
Cancel = True
Select Case Target.Row
Case 4 To 250
Target = Date
End Select
'Projekte in Mappen übergeben und dann löschen
If Intersect(Target, Range("AB4:AB250")) Is Nothing Or Target.Count > 1 Then Exit Sub
Cancel = True
With Sheets("Einkauf")
z = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Target.Offset(, -27).Resize(, 37).Copy .Rows(z)
'nach Übergabe Zeile löschen in Projektübersicht
Target.EntireRow.Delete Shift:=xlUp
End With
End Sub