Button => msgbox => makro starten *wie machen*

Sub Information ()
MsgBox "Achtung, alle gewählten Zubehöranzahlen werden mit OK auf Null zurückgesetzt! " &  _
vbNewLine & _
"" & vbNewLine & _
"Dies muss vor jedem neuen Angebot gemacht werden.", vbExclamation + vbYesNo, "Information"
End Sub

Option Explicit
Sub SpalteH_Nullen()
'Die Werte im Sheet "Zubehör", Spalte H "Anzahl aus Drehfeld" werden hiermit ab   Zelle H4 bis  _
zum Ende der formatierten Tabelle mit einer Null überschrieben. Da diese Spalte ab H4 die Zellverknüpfungszellen der jeweiligen Drehfelder sind, bewirkt hier das "Generieren" einer Null dafür, dass alle Drehfelder des Sheets Auswahl den 'internenAuswahlstatus (interner Wert)= 0 erhalten. Somit ist gewährleistet, dass vor jedem neuen Angebot jedes Zubehör auf Anzahl Null steht, wenn der Button "Anzahl zurücksetzen" geklickt wird.
With ThisWorkbook.Worksheets("Zubehör")
.Range(.Cells(4, 8), .Cells(.Rows.Count, 8).End(xlUp)) = 0
End With
End Sub