wie muss der Code lauten, damit bei aktivieren des Buttons "Abbrechen", das Makro beendet wird? Habe einiges versucht, es aber nicht geschafft. Hier mein Code, der ansonsten gut funktioniert:
Sub OptionButtons_einfügen2()
Dim AZ As Integer 'Mx
Dim Wiederholungen As Integer, Position As Double
Application.ScreenUpdating = False
Position = 0
AZ = InputBox("Anzahl") 'Mx
For Wiederholungen = 1 To AZ 'Mx
With ActiveSheet.OptionButtons.Add(Cells(Wiederholungen, "B").Left, Cells(Wiederholungen, "E"). _
_
Top, 24, 10)
.LinkedCell = "$B$^" & Wiederholungen
.Characters.Text = ""
End With
'Zellhöhe=17,25cm
Position = Position + 17.25
Next
End Sub
Gruß, Dieter(Drummer)