11.03.2019, 17:23
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
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