MsgBox vbNO zu Zelle Springen

[Mugel]

Hallo, 
ich möchte in ein Makro eine MsgBox einbauen die bei Ok das Makro ausführt und bei Cancel zu einer bestimmten Zelle (B7) springt.
Bei Ok funktioniert das, nur nicht bei Cancel. Bei Cancel bleibt der Curser in A6 hängen.

(Makro: Wenn Doppelklick auf A6 dann B6 bis E6 kopieren und jeweils ab F6, J6,N6 und R6 einfügen anschließend auf Zelle B7 springen)

… und so schaut's aus:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

If Target.Address = "$A$6" Then
If MsgBox("Eingabe kopieren?", vbOKCancel,) = vbOK Then
Range("B6:E6").Select
    Selection.Copy
    Range("F6,J6,N6,R6").Select
    Range("R6").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("B7").Select
End If
End If
    If vbOKCancel = vbCancel Then
    Range("B7").Select
End If

Wäre nett wenn mir jemand helfen könnte.

Mugel

[cysu11]

Hi,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

If Target.Address = "$A$6" Then
If MsgBox("Eingabe kopieren?", vbOKCancel, "Meldung") = vbOK Then
Range("B6:E6").Select
    Selection.Copy
    Range("F6,J6,N6,R6").Select
    Range("R6").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("B7").Select
    Else: Range("B7").Select
End If
End If
End Sub

LG
Alexandra

[Mugel]

Hallo,

vielen Dank es hat funktioniert.




LG
Mugel