Office: zwei Buttons

Hallo zusammen,

ich hoffe ihr könnt mir hier weiterhelfen. Ich habe nicht nur zwei, sondern 56 Buttons, die alle fast die gleiche Funktion haben. Sie sollen alle eine pdf-Datei öffnen (Achtung nicht die selbe).

Kann ich es irgendwie erreichen, dass ein Klick auf eines der 56 Buttons immer das selbe Sub aufruft? Ich habe nämlich keine Lust 56 Subs mit fast identischen Inhalt zu schreiben *rolleyes.gif*

Vielen Dank für eure Hilfe
Thorsten

:)

 

ja rufe in allen die gleiche Sub auf Du musst nur mit Application.caller unterscheiden welcher Schalter in der Sub.

 

Hallo Thorsten,

die Verwendung von Hyperlinks könnte die Sache vereinfachen.
Alternative: Du kannst auch per Button eine Prozedur mit übergebenem Parameter aufrufen, analog zu diesem alten Thema:
OnTime und Übergabe von Parametern

Grüße
EarlFred

 

Hallo Hajo,

mmh tut mir leid, aber ich bin wohl zu dumm *frown.gif*. Habe jetzt mal ein bischen nach Application.caller gegoogled, aber irgendwie finde ich da nicht viel.

Ich dachte immer, dass bei einem Klick auf ein Button, das Sub mit dem gleichen Namen des Buttons aufgerufen wird.

Also wenn es Button1 heißt, dann das Sub "Button1_Click()". Wie kann ich da jetzt sagen, dass er beim Button1 und beim Button2 das Sub "Button_Click()" aufrufen soll.

Viele Grüße
Thosten

 

Sub "Button1_Click()
Button
End Sub
Sub "Button2_Click()
Button
End Sub
Sub "Button3_Click()
Button
End Sub

 

Ah ok, stimmt - so kann man es wenigstens etwas abkürzen.

Ich habe allerdings gehofft, dass ich die Subs zu Button1 und Button2 gar nicht explizit aufrufen muss, sondern dass es eine ähnliche Funktion wie die folgende gibt:

For i = 1 to 56
Controls("Button" & i)
Next

 

Hallo Thomas,

das geht grundsätzlich auch über Klassenprogrammierung. Ob das dann aber eine wirklich Vereinfachung ist, vor allem da auch hier noch die Frage der unterschiedlichen Dateinamen zu beachten wäre?

Zumindest der (geänderte) Dateiname sollte noch als Attribut an die Sub übergeben werden.

Was spricht denn gegen Hyperlinks?

Grüße
EarlFred

 

Also die einzelnen Buttons habe ich schon sehr einfach benannt, damit ich zur Weiterverarbeitung leicht einen Array draus machen kann.

Es gibt "T1" bis "T56", was ich dann im Folgenden in der Programmierung zu einem Array "T" zusammengefasst habe. Den jeweiligen Dateinamen (inkl. Pfad), der zu öffnenden PDF-Datei kann ich aus T1.Caption bis T56.Caption erzeugen.

Habe ich mit Hyperlinks nicht die selben Probleme? Die müsste ich doch auch für alle 56 Felder definieren - vor Allem, wenn der Pfad dynamisch zum Speicherort des Programmes ist und sich die Funktionsweise (je nach vorherigem Programmverlauf) ändern kann.

Ich bin aber froh, dass die Lösung nicht super leicht ist und ich mich hier als VollNoob oute *Smilie.

Aber Hajos Vorschlag ist ja schon mal eine ganz gute Lösung - so spare ich mir wenigstens ein paar Zeilen Code.

Vielen Dank an Alle - vielleicht hat ja doch noch jemand eine bessere Lösung. Werde jetzt erst einmal an einer anderen Stelle im Programm weitermachen - vielleicht hilft ja auch eine Nacht drüber Schlafen *Smilie

 

Hallo Thomas,

von was reden wir denn nun? Button auf einem Tabellenblatt oder in einer Userform?

Ob Hyperlinks einfacher zu handhaben sind? Kommt auf die Hintergründe an, von denen ich nicht mehr kenne als ein paar neblige Fragemente.

Klingt also doch irgendwie nach Commandbuttons auf einer Userform... Dann wäre Klassenprogrammierung in der Tat eine Option.

Grüße
EarlFred

 

Hallo Thomas,

Beispiel für eine Userform:
Code:

Code:

Damit kannst Du mehrere 1000 Buttons behandeln... *wink.gif*

Grüße
EarlFred

 

Oh das klingt klasse!!!! Ja es handelt sich um Userforms - sorry hätte ich gleich dazuschreiben sollen.

Werde ich gleich mal ausprobieren. Mir ist nur noch nicht ganz klar, wie ich dem Ding sage, auf welche Buttons sich das bezieht. Aber das finde ich schon noch raus *Smilie. Ich nehme mal an, dass das irgendwie in "colButtons" liegt

Nochmal vielen vielen Dank
Thorsten

 

Hallo Thorsten,

Erklärungsversuch:
Es gibt eine Klasse namens "clsCmdBtn", in der eine Variable "cmd" existiert, die einen Commandbutton speichern kann. Durch "WithEvents" kann auf Ereignisse des Buttons in dieser Variable reagiert werden.

Als Beispiel ist das Klick-Ereignis eingefügt:
Code:

Die Caption des Buttons (nach Deinen Angaben der Dateiname) wird ausgegeben.

Im Codemodul der Userform existiert nur ein globaler "Sammelbehälter" (colButtons), in dem für jeden Button eine Klasse instanziert wird, in der dann der Button der Variablen zugewiesen wird. Solange dieser Sammelbehälter die Buttons beinhaltet, kann auf deren Ereignisse reagiert werden. Die Zuweisung geschieht beim Initialisieren der Userform.

Das als kurze, konfuse Zusammenfassung. Als Beschäftigung für ruhige Stunden empfehle ich gerne die tolle Lektüre des Herrn Peter Haserodt auf online-excel

Grüße
EarlFred

 

Hi EarlFred,

ES HAT GEKLAPPT!!!!! *grins Das macht meinen Code jetzt um einiges schlanker und ich habe wieder viel gelernt.

Nochmal vielen vielen Dank für die Unterstützung!
Thorsten