Office: Optionsfeld erstellen und Code zuweisen

Hallo,

ich habe folgendes Problem:

Ich möchte durch einen Kick auf einen Button zwei Optionsfelder erstellen und ihnen dann gleich VBA Code zuweisen.
Ist das möglich?

So lasse ich ein Optionsfeld erzeugen:
Code:

Wie bekomme ich es hin, dass zwei Optionsfelder in einer Zelle untereinander erscheinen?

Des Weiteren möchte ich dann die Optionsfelder mit Code belegen.
Bei Auswahl des oberen Optionsfeldes, soll die Zelle daneben grün werden und bei Auswahl des unteren Optionsfeldes soll dieselbe Zelle rot werden.

Kann mir jemand hierbei weiterhelfen? Ist diese Umsetzung überhaupt möglich?

Danke und viele Grüße
Imke

:)

 

Du kennst Dich mit Klassenprogrammierung aus, das ist dazu notwendig. Da bin nicht auch nicht der Fachmann.

 

Hallo,

Klassenprogrammierung kann ich leider auch nicht.

Den Code habe ich auch nur im Internet gefunden.

Gruß Imke

 

Hi Imke,

in VBA ist (fast) alles machbar. Du hast 2 Möglichkeiten: entweder du verwendest die Formular-Optionsfelder (das geht einfacher zu programmieren) oder die ActiveX-Optionsfelder - das geht allerdings nur über Klassenprogrammierung (kompliziertere Programmierung).

 

Hallo Karin,

wenn es mit den Formular-Optionsfeldern einfacher geht, verwende ich auch gerne diese, nur leider weiß ich auch nicht, wie ich das damit programmiere soll :/

Gruß Imke

 

Hi Imke,

Code in einem allgemeinen Modul:

Code:

 

Hallo Karin,

das funktiniert soweit super!
Nur leider müsste über die beiden Optionsfelder noch ein Gruppenfeld gelegt werden.
Ist es auch möglich, dass die beide Optionsfelder untereinander liegen und dabei automatisch die nächste freie Zelle in Spalte D gesucht wird?

Vielen Dank für deine Bemühungen!

 

Hi Imke,

das Hinzufügen eines Gruppenfeldes ist kein Problem - ergänze nach Next rngZelle diese Zeilen

Code:

Was meinst du mit mit "dabei automatisch die nächste freie Zelle in Spalte D gesucht wird"?

 

Hallo Karin,

das Einfügen des Gruppenfeldes funktioniert jetzt auch, nur leider funktiniert das Umfärben der Zellen immer nur bei dem zueltzt eingefügten Gruppenfeld. Bei den übrigen Grupenfäldern ändert sich die Farne danach nicht mehr

Ich kann ja mit Code:

in die nächste freie Zelle in Spalte A springen.
Die Optionsfelder sollen auch automatsisch in die nächsten zwei freien Zellen in Spalte D eingefügt werden.

 

Hi Imke,

es sollen also nicht nur 2 OptionButton sondern mehrere "Paare" eingefügt werden?

 

Hallo Karin,

ja, da hatte ich mich vielleicht etwas missverständlich ausgedrückt, entschuldige.

Es soll pro Buttonklick immer ein "Paar" eingefügt werden, aber man kann natürlich mehrmals auf den Button klicken...

Danke dir!

 

Hi Imke,

in diesem Fall muss der Code geändert werden. Den OptionButton wird eine Zellverknüpfung zugewiesen, in der jeweils die Nummer des aktivierten OptionButtons der Gruppe ausgegeben wird:

Code:

Die verknüpfte Zelle ist so formatiert, dass der Inhalt nicht sichtbar ist.

Anhand der Nummer in der verknüpften Zelle kann dann festgestellt werden, welcher OptionButton der Gruppe aktiv ist und wie die Zelle gefärbt werden muss:

Code:

 

Hi Karin,

funktioniert super, danke! *Smilie