ich habe ein Arbeitsblatt, das einen Fragebogen darstellt, in dem verschiedene Optionsfelder angeklickt werden können. Jeweils sechs dieser Optionsfelder, die damit Sie zueinander zugeordnet sind, befinden sich immer in einem Gruppenfeld. Die Optionsfelder würde ich gern wieder zurücksetzen, damit der Fragebogen neu ausgefüllt werden kann.
Dazu habe ich mir folgendes zusammen gekleistert:
Dim objOBtn As Object
For Each objOBtn In ActiveSheet.Shapes
If objOBtn.Name Like "Optionsfeld *" Then
objOBtn.DrawingObject.Value = False
End If
Next
Das ganze funktioniert, nur bisher setzt er immer nur die ersten fünf Gruppen a sechs Optionsfelder wieder zurück.
Ich habe jetzt zwei Fragen:
Bin ich die Sache falsch angegangen, müsste die Lösung anders aussehen?
Und, wie kann meine herangehensweise so modifiziert werden, damit diese funktioniert?