Schleife für OptionButtons

Hallo,
ich habe folgendes Problem:
Formular:
3a) "Frage":
O niedrig
O mittel
O hoch
...
3d) "Frage":
O niedrig
O mittel
O hoch
Ergebnisfeld: ________________
Also 4 Fragen mit insgesamt 3x4 =12 Antwortmöglichkeiten. Ich möchte nun eine Formel bzw Schleife (For? ) bauen die prüft ob mindestens 3 der 4 fragen mit "mittel" oder "hoch" beantwortet wurden. Wenn dies der Fall ist soll im Ergebnisfeld Antwort1 sonst Antwort2 angezeigt werden.
Ich habe bereits die Caption der Optionfelder dementsprechend in niedrig,mittel oder hoch gesetzt.
--------------------------
Mein Code bislang:
Dim anzahl As Integer
anzahl = 0
For i = 1 To 12
If (ActiveSheet.OLEObjects("OptionButton" & i).Object.Caption = "Normal" Or ActiveSheet.OLEObjects("OptionButton" & i).Object.Caption = "Hoch") And ActiveSheet.OLEObjects("OptionButton ' Welcher Name kommt hier rein?" & i).Object.Value = True Then anzahl = anzahl + 1
Next i
If anzahl "größergleich" 3 Then
'hier diene Ausgabe rein
txt_antwort.value = "Antwort"
End If
------------------------------------
Vllt. ist es auch ein ganz falscher Ansatz.Ich erhalte jedes mal die Fehlermeldung
1004 das die ObjektEigenschaft von OLEObjects im Formular nicht gefunden werden kann..Ich denke die Schleife weiß nicht welche Buttons er kontrollieren soll?!
Danke für Eure Hilfe.
Gruß
Louis

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub yyy() Dim anzahl As Integer, i As Integer, o As OLEObject anzahl = 0 With ActiveSheet For i = 1 To 12 Set o = .OLEObjects("OptionButton" & i) anzahl = anzahl - ((o.Object.Caption = "Hoch" Or o.Object.Caption = "Normal") _ And o.Object.Value = True) Next End With End Sub

Sub yyy() Dim anzahl As Integer, i As Integer, o As Object anzahl = 0 With ActiveSheet For i = 1 To 12 Set o = .Shapes("Option Button " & i).DrawingObject anzahl = anzahl - ((o.Caption = "Hoch" Or o.Caption = "Normal") _ And o.Value = True) Next End With End Sub

Sorry hatte nicht gewusst das dies einen Unterschied macht. Ich bin noch relativ neu in der VBA Programmierung.
Es klappt immer noch nicht ich bekomme die Fehlermeldung : Das Element mit dem angegebenen Namen wurde nicht gefunden...
'Vertraulich
If OptionButton1.Value Then
txt_vertraulichkeitsklasse.Value = "Vertraulich"
End If
Dim anzahl As Integer, i As Integer, o As Object
anzahl = 0
With ActiveSheet
For i = 1 To 12
Set o = .Shapes("OptionButton" & i).DrawingObject anzahl = anzahl - ((o.Caption = "hoch" Or o.Caption = "normal") And o.Value = True)
Next
If anzahl >= 3 Then
'txt_vertraulichkeitsklasse.Value = "Vertraulich"
End If
End With
'Öffentlich
If OptionButton2.Value Then
txt_vertraulichkeitsklasse.Value = "Öffentlich"
End If

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schleife für OptionButtons

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread