Office: Gruppe von Buttons ansprechen

Hallo Zusammen,

ich spreche in meinen Makros immer wider eine Gruppe von 30 CommandButtons an, die alle unterschiedliche Namen haben, also nicht durchnummeriert oder ähnliches.

Kann ich mir Schreibarbeit ersparen, indem ich diese Gruppe einmal am Anfang deklariere als "gruppe1" und dann in den Makros immer nur Gruppe1 Anspreche?

Wenn ja, wie geht das?

:)

 

Hi Anke,

welche Commandbuttons? Die aus der Steuerelementetoolbox oder die in Userforms?

Für erstere: Die Möglichkeit Gruppennamen zuzuweisen, wie z.Bsp. für Optionbuttons, gibt es nicht für Commandbuttons. Du könntest sie aber über die Name Eigenschaft (cmd1, cmd2, cmd3 usw) auswerten lassen.

Für die anderen: Wie oben, jedoch zusätzlich oder alternativ könntest Du die Tag-Eigenschaft nutzen. Oder, falls es keine anderen auszuwertenden Buttons gibt, einfach über TypeName entsprechend auswerten. Sh dazu hier.

 

Hallo,

es handelt sich um Buttons aus der Steuerelemente Toolbox. Was genau meinst du mir über den Namen auswerten lassen?

Meine Buttons heissen z.b Januar, Februar....Dezember. Diese möchte ich dann als Gruppe"Monate" ansprechen z.B

If CheckBox1.Value = true then
Monate.Visible = true

an Stelle von

If CheckBox1.Value = true then
Januar.Visible =true
Februar.visible = true
...

 

Hi,

was nun? Checkboxen oder Commandbuttons? Egal, Du verwechselst offenbar die Eigenschaften Caption (Januar, Februar...) und Name (CheckBox1, CheckBox2,...) Ich habe Dir hier mal ein Beispiel gemacht, wie Du Die Visible Eigenschaft aller Commandbuttons (wenn Die Name-Eigenschaft CommandButton1, CommandButton2 usw. heißt), änderst.

Code:

 

Hallo,
jetzt haben wir uns falsch verstanden. Ich weiss sehr wohl den Unterschied zwischen Checkboxen und CommandButtons und Caption/Name. ich wollte nur ein Beispiel geben, wie ich eine Gruppe der CommandButtons über ein anderes Ereignis ansprechen möchte.

Die CommandButtons haben von mir Namen bekommen, da es einfacher ist, denn Überblick beim Makro schreiben zu behalten, als wenn ich sie durchnummeriere

Da ich nicht immer alle CommandButtons ansprechen will, kann ich nicht pauschal alle CommandButtons unsichtbar setzen( in anderen Makros setze ich andere Buttons auf enabled = false....), sondern eben immer nur Gruppen von Buttons. Diese Gruppen würde ich gerne einmal definieren und dann immer wieder einsetzen

 

Hallo Anke,

lager das Ein-/Ausblenden der CommandButtons doch in ein eigenes Makro aus:
Code:

Gruß Ingolf

 

Hallo, ich bins nochmal,

meine Makros an sich funktionieren super, dass ist alles kein Problem. Ich versuche viel mehr, mir a) Schreibarbeit zu ersparen und b) die Größe meiner Mappe zu reduzieren.
Wenn ich ständig in jedem Code 30-40 CommandButtons anspreche und in dem nächsten wieder, das läppert sich. Daher meine Idee, die CommandButtons am Anfang zu deklarieren.

z.B
Dim Gruppe as OleObject.CommandButton
Gruppe = (CommandButton1, CommandButton2.......)

Klar, so funktioniert es nicht, aber vielleicht wird es so klarer, was ich eigentlich wollte. Eine Art Variablendeklaration

 

Hallo Anke,

Genau das kannst du verhindern, indem du so vorgehst, wie ich es beschrieben habe. Du lagerst das Ein-/Ausblenden der Buttons in ein eigenes Makro aus. Damit brauchst du den Code nur genau einmal zu schreiben. Überall dort, wo du nun deine Buttons ein- oder ausblenden willst, rufst du statt dessen das Makro mit der kleinen Zeile Monate_umschalten(True) zum Einblenden bzw. Monate_umschalten(False) zum Ausblenden auf.

Gruß Ingolf