Makro modifizieren so das es abbricht

[Timmihase]

Hallo liebes Forum,

ich habe hier ein Makro, welches Werte in eine Zelle schreibt und davor überprüft ob in dieser Zelle schon ein Wert steht. Wenn da ein Wert drin steht kommt eine Nachricht ob der Wert überschrieben werden soll oder nicht. Sage ich ja wird der Wert überschrieben, sage ich nein bleibt der alte Wert und das Makro wird mit anderen Befehlen fortgesetzt.

Code:

   If ActiveSheet.Name = "Arbeitweise PQ Titration" Then
      With Sheets("PQ Titration")
        varI = Application.Match(Range("B8"), .Range("A1:A43"), 0)
        If IsNumeric(varI) Then
            If Len(.Cells(varI + 0, 16).Value) Then
              varI = varI * -(MsgBox("Arbeitsweise wurde bereits benotet, Überschreiben ?", vbQuestion + vbYesNo, "Rückfrage") = vbYes)
                        End If
           
            If varI Then .Cells(varI + 0, 16).Value = Range("D11").Value
        End If
      End With
    End If

Jetzt würde ich das gerne so modifizieren das beim drücken auf Nein in der MsgBox das Makro komplett abgebrochen wird. Geht das irgendwie ?

Danke sehr

[DeltaX]

Ja, das geht. Wenn Du den Code selber geschrieben hast, solltest Du auch wissen wie das geht.

[Kuwer]

Hallo Timmihase,

Code:

         
          If Len(.Cells(varI + 0, 16).Value) Then
            If MsgBox("Arbeitsweise wurde bereits benotet, Überschreiben ?", vbQuestion + vbYesNo, "Rückfrage") = vbYes Then
              varI = varI * 1
            Else
              Exit Sub
            End If
          End If

Gruß Uwe

[Timmihase]

Danke sehr