If
..
End If
Dim anzahl As Integer
anzahl = 0
For i = OptionButton3 To OptionButton12
If (ActiveSheet.OLEObjects("OptionButton" & i).Object.Caption = "normal" Or ActiveSheet.OLEObjects("OptionButton" & i).Object.Caption = "hoch") And ActiveSheet.OLEObjects("OptionButton" & i).Object.Value = True Then anzahl = anzahl + 1
Next i
If anzahl >= 3 Then
txt_ausgabe.Value = "Vertraulich"
End If
If
...
End If
____
Mein Formularaufbau ist so :
Frage 3 a) : O normal O Vertraulich O Streng vertraulich
Frage 3 b) : O normal O Vertraulich O Streng vertraulich
Frage 3 c) : O normal O Vertraulich O Streng vertraulich
Frage 3 d) : O normal O Vertraulich O Streng vertraulich
Vor und dannach sind andere IF schleifen.
<strong>Meine Frage 1</strong>: ist das so Korrekt das ich den namen vom 1."O Normal" bis zum 12" Streng Vertraulich angebe ? Oder muss ich da die Zahlen 1-12 Angeben?