Multipage prüfen ob optionsbutton auf mehreren Pages aktiviert wurden

[Claudia]

Hallo VBA-Freunde,

ich habe hier eine Herausforderung, bei der ich Hilfe bräuchte.

Habe in Word 2007 eine Multipage mit 3 Pages erstellt, auf der jede Menge Optionsbuttons sind.

Die Daten, die ausgewählt werden, werden in eine Datenbank geschrieben, dass klappt auch alles ganz gut.

Was ich nur leider übersehen habe, als ich von einem Frame mit Optionsbutton (da kann automatisch nur einer ausgewählt werden) auf die Multipage (wegen Platzmangel) umgestiegen bin, dass auf der Multipage auf jedem Page ein Optionsbutton angewählt werden kann.

Dann verschluckt sich leider der Export in die Datenbank.

Gibt es eine komfortable Möglichkeit, dass nur ein Optionsbutton (von allen Pages) gewählt werden kann, ohne das ich alle Optionsbutton abfragen muss, ob mehr als einer aktiviert ist?

vielen Dank für eure Hilfe
Grüße
Claudia

[Martin Worm]

On Mon, 3 Jun 2013 04:56:35 -0700 (PDT), Claudia wrote:

hallo,

Post by Claudia
Gibt es eine komfortable Möglichkeit, dass nur ein Optionsbutton
von allen Pages) gewählt werden kann, ohne das ich alle
Optionsbutton abfragen muss, ob mehr als einer aktiviert ist?

ersetze die Optionsknöpfe auf einer Seite durch eine Listbox,
in der die Beschriftungen der Optionsknöpfe aufgeführt sind,

ändere deren Liststyle auf ...option, dann sieht man Kringel ;.-)

und im Ereignis Listbox_click die Listindexe
der anderen Listboxen auf -1 setzen

hoffe. daß das komfortabel ist, meinem Gefühl nach könnte es einiges
an Arbeit bedeuten

mit freundlichen Grüßen

Martin Worm

[Claudia]

Hallo Martin,

vielen Dank für deinen Tipp, ich habe es gerade mal im Ansatz ausprobiert und festgestellt, das es wohl genauso viel Arbeit ist, wie jeden Optobutton abzufragen.

Aber danke auf jeden Fall für diesen neuen Denkansatz :-).

Grüße
Claudia

[Martin Worm]

On Sat, 15 Jun 2013 00:38:23 -0700 (PDT), Claudia wrote:

hallo,

Post by Claudia
vielen Dank für deinen Tipp, ich habe es gerade mal im Ansatz ausprobiert
und festgestellt, das es wohl genauso viel Arbeit ist, wie jeden Optobutton abzufragen.
Aber danke auf jeden Fall für diesen neuen Denkansatz :-).

ich sollte es wohl ausführlicher erklären.

In der Listbox kann nur ein Eintrag ausgewählt werden.
Die Eigenschaft Listindex hat dann die Nummer des ausgewählten
Eintrags. Wenn nichts ausgewählt wurde, ist der Listindex -1

Wenn in einer Listbox etwas angeklickt wurde, lassen sich die
Listindexe der anderen Listboxen auf -1 setzen, sodaß in diesen nichts
mehr ausgewählt ist. Als Beispiel

Private Sub ListBox1_Change()
ListBox2.ListIndex = -1
ListBox3.ListIndex = -1
End Sub

Du mußt dann nur noch den Listindex einzelnen Listboxen abfragen, der
ausgewählte ist über den Listindex festzustellen.

Du kannst die Hintergrundfarbe auf die Hintergrundfarbe der Umgebung
setzen und den Specialeffect auf ..flat dann kann man die Listbox kaum
noch erkennen. :-)
Es ist auch einfacher, bei Bedarf etwas hinzuzufügen.

hth
mit freundlichen Grüßen

Martin Worm