Hallo,
so sieht das ganze jetzt bei mir aus :
If
..
End If
Dim anzahl As Integer
anzahl = 0
For i = OptionButton3 To OptionButton12 'welchen Index soll ich hier angeben ? ich will ja das er von diesem bis zu diesem button durchgeht ist das so richtig ? Wie es aufgebaut ist zeige ich unten .
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
'hier diene Ausgabe rein
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.
Meine Frage 1: 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?
Frage 2: Welcher Buttonname kommt hier rein ?
If (ActiveSheet.OLEObjects("OptionButton" & i)
Der rest ist mir soweit klar nur bekomme ich beim probieren immer die Fehlermeldung :
Laufzeitfehler 1004..OLEOObjects Eigenschaft des Worksheet Objektes kann nicht zugeordnet werden !?
Ich habe jedoch alle notwenidgen Buttons unter caption beschriftet mit niedrig,mittel,hoch ..
gruß Alexander
|