Optionsfeld als Pflichtfeld - Excel - VBA

Hallo zusammen,

ich bin gerade dabei meinen ersten Makro zu schreiben und komme leider nicht weiter.
Die Aufgabe ist, denke ich zumindest, gar nicht so schwer, ich weiß nur nicht wie man es in eine Programmiersprache umwandelt.

Aufgabe ist Folgendes:
Ich habe 6 Optionsbuttons eingefügt von denen einer ausgewählt werden soll (es lässt sich auch nur einer auswählen). Falls keine Option gewählt wird kann das Dokument nicht gespeichert werden.
Weiter oben im Dokument hatte ich das Gleiche schon für bestimmte Pflichtfelder vorgenommen.
Ich denke mein Problem ist es, die Optionen zu definieren.

Ich wage es jetzt mal euch meinen Anfängercode zu präsentieren Es geht also nur um den letzten Teil, das Obere funktioniert.


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If Not ActiveWorkbook.BuiltinDocumentProperties.Item("Content Status") = "Entwurfsmodus" Then
For Each cell In Range("mandatory_field")
If cell.Value = "" Then
MsgBox "Det obligatoriska fältet måste fyllas i!", vbCritical
Cancel = True
Exit For
End If
Next
End If
If Not (OptionButton8.Value = True Or OptionButton9.Value = True Or OptionButton10.Value = True Or OptionButton11.Value = True Or OptionButton12.Value = True Or OptionButton13.Value = True) Then
MsgBox "Välj krediteringskod!", vbCritical
End If
End Sub


Fehler: Laufzeitfehler 424
Objekt erforderlich


Vielen lieben Dank schon mal!!
Beste Grüße,
Sylvia

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
  If Not ActiveWorkbook.BuiltinDocumentProperties.Item("Content Status") = "Entwurfsmodus" Then  
    For Each cell In Range("mandatory_field")  
      If cell.Value = "" Then  
        MsgBox "Det obligatoriska fältet måste fyllas i!", vbCritical  
        Cancel = True
        Exit For
      End If
    Next
  End If
  If Not (OptionButton8.Value Or OptionButton9.Value Or OptionButton10.Value Or OptionButton11.Value Or OptionButton12.Value Or OptionButton13.Value) Then
    MsgBox "Välj krediteringskod!", vbCritical  
    Cancel = True
  End If
End Sub

With Sheets("Tabellenname")  
    If Not (.OptionButton8.Value Or .OptionButton9.Value Or .OptionButton10.Value Or .OptionButton11.Value Or .OptionButton12.Value Or .OptionButton13.Value) Then
    MsgBox "Välj krediteringskod!", vbCritical  
    Cancel = True
   End If
End With

...
  If Not IstEntwurfsModus Then
    ...

  end if

...


function IstEntwurfsModus as boolean
  Select Case ActiveWorkbook.BuiltinDocumentProperties.Item("Content Status")   
    case "Entwurfsmodus", "BlaBlaBla", "SoSoSo"   'Hier ein paar "gängige" Sprachen berücksichtigen.  
      IstEntwurfsModus = true
    else
      IstEntwurfsModus = false
  end select
end function