Makroaufruf mit Buttons
03.05.2017 00:21:33
Barbaraa
habe eine Frage zu einem konkreten Beispiel. Im Anhang habe ich eine Datei hochgeladen, die drei Buttons enthält.
https://www.herber.de/bbs/user/113258.xlsm
Mit jedem dieser Buttons wird ein Makro aufgerufen.
Diese Makros sind einander sehr ähnlich, und deshalb ersuche ich Euch um einer Vereinfachung, die sich diese Ähnlichkeit zunutze macht.
Die Hürde sind die unterschiedlichen Bezeichnungen der Buttons.
Zu Beginn wird der angeklickte Button rot gefärbt und mit einem "Bitte warten" versehen. Dann werden individuelle Makros aufgerufen. Dann wird der Button wieder in die ursprüngliche Farbe gesetzt. Diese beiden Vorgänge konnte ich bereits auslagern. Und zum Schluss kommt noch eine Fehlerverarbeitung, die auch wieder bei allen Buttons gleich ist.
So sieht beispielsweise ein Buttonmakro aus:
Private Sub cmdObst_Click()
'Obst anzeigen
Dim Buttonfarbe As Long
Dim Buttontext As String
On Error GoTo Fehlerabbruch
'Der Button wird rot:
BtnStart cmdObst, Buttonfarbe, Buttontext, "Bitte warten ..."
ObstAnzeigen 3 'Das ist der individuelle Teil
'Der Button wird wieder grün:
BtnEnde cmdObst, Buttonfarbe, Buttontext
Exit Sub
Fehlerabbruch:
MsgBox "Abbruch Fehler"
BtnEnde cmdObst, Buttonfarbe, Buttontext
End Sub
Falls das ohne Klassemodule geht, wäre es besser, denn in diesem Bereich habe ich Null Ahnung. Falls nicht, bitte ich um konkrete Vorschläge. Vielleicht lerne ich noch was daraus.
LG, Barbara