Office: Dynamisch erstellten Buttons Click-Event zuweisen

guten Nachmittag,

Ich habe grad ein Problem und komme einfach gerade überhaupt nicht drauf wie ich das lösen kann, obwohl es recht simpel sein muss.

Ich erzeuge in einem anderen makro dynamisch eine Tabelle. In mehreren Spalten will ich Buttons einfügen, diese beschriften und wenn man später drauf klickt einfach nur von rot auf grün und anders herum färben. So eine Art "Checkbox" eben bunt dargestellt als Button.

Ich habe mir gedacht ich schreibe eine Prozedur, welche einfach die Farbe von grün auf rot und umgekehrt ändert. Jetzt weiß ich gerade nur nicht wie ich den erstellten Buttons diese Prozedur als Click Event zuweise und diesen auch umbenennen kann.

Momentan habe ich nur mit dem Makro-Rekorder den Code für das Erstellen eines Buttons und komme gerade überhaupt nicht weiter.


Gruß und schonmal Danke im vorraus,
Daniel

:)

 

Hallo,

im Prinzip mit Formularbuttons so:

Gruß, Muller

 

Servus Muller,

vielen Dank für die schnelle Antwort. Der Code funktioniert soweit einwandfrei. Nur würde ich gerne die Hintergrundfarbe und nicht die Schriftfarbe ändern. Ist dies auch mit den Formularsteuerelementen oder den ActiveX Steuerelementen möglich oder nicht?


Gruß
Daniel

 

Hallo,

dazu benötigst du eine Klasse für CommandButtons. Wenn du mir deinen Code zeigst dann kann ich dir eine Mustermappe erstellen.

 

Hi Daniel,

das geht mit Klassenprogrammierung.

 

Kann ich später machen, bin grad auf dem nach Hause Weg. Habe noch nie etwas mit Klassen gemacht, aber wollte mir es schon mal anschauen was das damit auf sich hat, aber kam noch nicht dazu

 

Hi Daniel,

speichere die Mappe zuerst mit daktivierten Makros und öffne sie dann erneut mit aktivierten Makros.

 

Guten Morgen!

Bin leider gestern daheim zu nichts mehr bekommen.

@Beverly: Super funktioniert genau so wie ich es mir vorgestellt habe, jetzt muss ich es gleich nur mal bei mir in den Code implementieren und anpassen.
Ich verstehe nur nicht, was die Methode "InitSchalter" genau macht?

Code:

Wenn du mir das kurz erklären würdest, was diese Methode genau macht, wäre das der Hammer

@Nepumuk: Danke für die Bemühungen, aber um nicht zweigleisig zu fahren nehme ich jetzt einfach mal den code von Beverly als Orientierungshilfe!

Gruß
Daniel

 

Hi Daniel,

wenn man eine Klasse verwendet, dann müssen die entsprechenden Objekte der Klasse zugewiesen werden, damit man später darauf zugreifen kann - und genau das macht dieser Code. Die Variable arrSchalter() ist dabei quasi der Container (der Klasse), der die Objekte aufnimmt.

 

Ok, vielen Dank.

Ich habe das mal so ungefähr übernommen und es funktioniert auch soweit.

Habe die Buttons noch an die Zelle gebunden mit .Placement = xlMoveAndSize da ich per Makro auch wieder Zeilen lösche!

Ich bedanke mich erstmal recht Herzlich und markiere das Thema als erledigt, aber es kann sein, dass ich laufe der Woche nochmals was kommt da ich das Projekt noch nicht ganz abgeschlossen habe.

Danke und Gruß
Daniel

 

Ok schon die erste Frage *biggrin.gif*

habe in der schleife in der ich die Buttons erzeuge noch mehrere If abfragen, welcher Text auf die Buttons soll. Dies funktioniert auch wunderbar. Das Problem ist nur, dass ich auch eine Else hab, falls keine If zutrifft. In diesem Else soll der Button dann nicht erzeugt werden. Nun weiss ich aber nicht genau wie der befehl dafür aussehen soll.

Code:

Ich habe sowas ähnliches gedacht aber bekomme immer Fehlermeldungen weil es natürlich nicht ganz richtig ist *biggrin.gif*

Ich hoffe dass ihr versteht was ich meine


Gruß
Daniel

 

Hi Daniel,

wenn weder die erste Bedingung If i = 0 noch die 2. Bedingung ElseIf i = 1 erfüllt ist, muss doch gar nicht erst ein Schalter erstellt werden - erstelle den Schalter also erst immerhalb der If-Anweisung

Code:

 

Das ist natürlich verdammt richtig und ich merk schon dass ich wieder zu viel und zu kompliziert denke!


Aber ich habe noch etwas bemerkt, was mir schon einmal wo anders mit ActiveX-Checkboxen passiert ist.

Ich arbeite an meinem Laptop der an einer Dockingstation hängt ( VGA und DVI ausgang auf 2 Monitore). Klicke ich hier auf die Buttons/Checkboxen und dann wo anders ins Tabellenblatt ist alles normal. Sobald ich aber den Laptop abdocke, und dann an einen Beamer anschließe oder ohne Monitore betreibe, dann werden die Buttons/Checkboxen nach jedem Klick kleiner. Das ist natürlich sehr schlecht, da man es nach 2-3 mal klicken schon gar nicht mehr sieht.
Blende ich die Zelle aus und direkt wieder ein, dann ist der Button/Checkbox wieder in Originalgröße da.

Ist das Problem bekannt, ich habe keine Ahnung woher das kommen soll!


PS: Mein Arbeitskollege hat einen neuen Monitor und hat das selbe Problem mit Dockingstation und HDMI-Kabel

 

Ja, dieses Prolbem bei ActiveX-Steuerelementen ist bekannt.
Du kannst höchstens versuchen die Schalter per VBA wieder auf die richtige Größe und Position zu bringen.

 

Ok, das ist ja blöd, denn es sind nicht alle Elemente gleich groß.

Aber noch ein Problem was ich gerade bemerkt habe.
Ich erstelle die Buttons ja per Makro, solange dann die Mappe geöffnet ist funktioniert auch alles. Habe die Zeile rausgenommen welche alle Buttons löscht, da ich die ja nachdem ich die Datei geschlossen habe auch wieder da haben will.

Nun ist mir aufgefallen, dass dein Code jedesmal beim Öffnen der Arbeitsmappe alle Buttons entfernt und die neuen wieder einfügt. Das soll bei mir aber nicht passieren. Nachdem ich dann die Mappe neu öffne, und bei "Workbook_OnOpen" ja nicht das Makro ausführe funktioniert die Prozedur welche die Farbe wechselt nicht mehr.

Kann man den Buttons nicht dauerhaft dieses Event beim Klicken zuweisen? Weil das ist ja genau was ich will *upps

Gruß und schönen Abend
Daniel