78 Aufrufe
Gefragt in PC-Sonstiges von
Hallo,

ich möchte einen Fragebogen erstellen - in jeder Zeile gibt es verschiedene Merkmale, die von sehr gut bis ausreichend bewertet werden sollen. Ich habe es bereits geschafft, dass pro Zeile nur jeweils ein OptionButton angeklickt werden kann. Wie es es aber möglich durch Klick auf den OptionButton den Haken zu entfernen? Über Unterstütztung wäre ich sehr dankbar.

1 Antwort

0 Punkte
Beantwortet von xlking Experte (1.9k Punkte)

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.

...