Hallo zusammen,
ich habe eine ganze Reihe von Schaltflächen auf einer Userform. Nennen wir sie S01 - S50. Diese Habe ich im VBA einer Variable zugeordnet:
Dim Schaltfläche(1 to 50) as Variant
Set Schaltfläche(1) = S01
Set Schaltfläche(2) = S02
...
Set Schaltfläche(50) = S50
Viele wichtige Operationen lassen sich jetzt schon über diese Variable regeln:
Schaltfläche(x).Visible = False
Nun geht es bei meinem Problem aber um die Aktionen, die bei einem Klicken auf die Schaltfläche ausgelöst werden. Ich fürchte schon mal, dass ich trotz Variable vermutlich 50 Prozeduren erstellen muss:
Private Sub S01_Click()
...
End Sub
Eine Erleichterung für meinen Code wäre es nun schon, wenn es eine Möglichkeit gäbe nach einem Klick auf eine Schaltfläche zu erfahren, um welche Schaltfläche es sich handelt. Also etwa so:
Private Sub S15_Click()
Nachricht, das auf Schaltfläche(15) geklickt wurde.
End Sub
Ist so etwas machbar?
Vielen Dank,
Grüße,
Rüdiger |