Office: Optimiertes Auswerten von OptionButtons

Hallo,

habe untenstehenden Code geschrieben, mit welchem ich Gruppen von OptionButtons auswerten kann – in der Kategorie Bewertung sind jeweils 6, in der Kategorie Relevanz jeweils 4 in einem Frame zusammengefasst. (siehe Anhang) Das Programm tut auch was es soll, nur frage ich mich ob man den Code über einen anderen Ansatz nicht effektiver schreiben kann – insgesamt scheint er mir recht langsam… (mglw. über .tag /index…?) Zudem nutze ich den ControlTipText für "Hilfspunkte": ist das praktikabel oder eher unschön? …Bin VBA-Einsteiger *wink.gif*

Besten Dank
Gruß, Martin

Code:

:)

 

Hi,

naja es ist langsam da du alle Optionbuttons durch gehst.
I
ch hab auch irgendwo so eine Auswertung, aber ich habe den Wert immer in eine nicht sichtbare Textbox geschrieben.
Sprich, sobald der Optionbutton gesetzt wird, wird der Wert in die Textbox geschrieben, oder der vorhandene überschrieben.
So spare ich mir diese durchlaufen der Options und muss nur die Textboxen auslesen beim speichern.

Machs doch auch so.

Viele Grüße JD

 

Guten Morgen,

ich weiß, was und wie dus meinst, aber bin mir nicht sicher wie ichs umsetzen könnte. Vielleicht über ein _klick Ereignis? Hättest du spontan einen Lösungsansatz zur Hand?

Viele Grüße,
Martin

 

Für das 1.Frame wär folgender Code möglich:

Code:

Da ich insgesamt 26 Frames hab, ziemlich umständlich: kann man das abkürzen? Dank für Euer Mitwirken! Beste Grüße, Martin

 

Hab ne andere Lösung entdeckt =)


Code:

Schönen Nachmittag!
Martin

 

Sorry war sehr beschäftigt und kam erste heute wieder dazu hier rein zu schauen.

Aber hab schon gesehen, du hast die Lösung gefunden.

Super!

 

Hey JohnDoe,

ich versuch schon solang ich die Nerven behalte eine Lösung zu finden: Google und das Archiv sind dabei auch oft sehr hilfreich *wink.gif* Und manchmal geht probieren auch über Studieren. Ein Problem hab ich aber noch.

Dabei gehts es darum dass erkannt werden soll wenn in einem Frame kein OptionButton gesetzt wurde (ich speichere keine Zwischenwerte sondern lasse die Captions der ActiveControls bei Bestätigen der Umfrage direkt ins Tabellenblatt übertragen) Zuvor soll aber wie gesagt erkannt werden, wenn in einem Frame kein OptionButton gesetzt wurde, sprich eine Frage nicht beantwortet ist.

Probiert hab ichs mit

Code:

Funktioniert nicht: auch alle anderen, ähnlichen Herangehensweisen scheitern. Dabei müsst es doch prinzipiell ganz einfach zu realisieren sein: denn was ich ihm sagen will ist doch Folgendes: "Schau her, hier hast du ein Frame...wenn in diesem Frame kein ActiveControl also kein OptionButton gesetzt ist, sage dem Anwender er soll gefälligst alle Fragen beantworten..." Blöd ist, dass ich auf die ActiveControls nicht abstellen kann, da in einem Frame mit nichtaktiviertem OptionButton ein solches nicht vorliegt...Puuh



*entsetzt

 

Hab selbst was geschrieben (bei 6 OptionButtons in jedem Frame) Hätts aber gern weniger umständlich, etwas schlanker. Bin also auch weiterhin, trotz Lösung, für Anregungen dankbar *wink.gif*

Code:

 

Hallo Martin,

würde Dich das zufrieden stellen? Da wäre auch die Anzahl der Option-Buttons egal, sollte die mal variieren.
Code:

Grüße
EarlFred