Hallo zurück,
na indem du ein anderes Optionsfeld anklickst natürlich. Dadurch wird das erste Optionsfeld automatisch geleert, denn es kann immer nur eins angeklickt werden. Wenn du ein bestimmtest Optionsfelde leeren willst dann führe diese Codezeile aus.
ActiveSheet.Shapes("Optionsfeld 1").ControlFormat.Value = False
Willst du hingegen alle Optionsfelder leeren dann führe dieses Makro aus:
Sub Leeren()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoFormControl Then
If shp.FormControlType = xlOptionButton Then
shp.ControlFormat.Value = False
End If
End If
Next shp
End Sub
Besser ist es aber du speicherst ein leeres Formular als Vorlage (.xltx) Und öffnest diese jedesmal neu. Dann musst du nix leeren.
Gruß Mr. K.