GlobalerOptionButton_Click Handler
17.10.2016 23:30:12
Frank
habe ca. 500 OptionButtons (ActiveX) in einem Sheet und möchte abfangen wenn irgendeiner dieser OptionButtons geklickt wird, da ich nicht über 500 Click Events schreiben will. (Wer sich fragt warum keine Formular OptionButtons: Hatte riesigen Ärger mit Ihnen da diese - warum auch immer - ihre Zellverknüpfung beim ausblenden von Zeilen, in denen Sie positioniert waren, verändert wurden).
Folgender Code funktioniert für einen Button schon. Ich habe jeweils 8 Buttons mit eigenem GroupName. (Also 480 Buttons und 60 Gruppen)
Private Sub OptionButton1_Click()
Dim obNameVal As Integer
Dim obNameLen As Integer
Dim obRow As Integer
Dim obRange As String
Dim obFrmVal As Integer
Dim obValue As Integer
obNameLen = Len(OptionButton1.Name)
obNameVal = Right(OptionButton1.Name, obNameLen - 12)
obRow = Range(OptionButton1.TopLeftCell.Address).Row
obRange = "Q" & obRow
obFrmVal = OptionButton1.GroupName
obValue = obNameVal - ((obFrmVal - 1) * 8)
ActiveSheet.Range(obRange).Value = obValue
End Sub
Also ich bräuchte ein Event/Makro/etc dass den geklickten Button erkennt und dann oben variabel den OptionButton1.Name ersetzt und ähnlich wie das Worksheet_Calculate Eevent beim Click sofort ausführt. Hatte schon lange im Netz gesucht allerdings nur etwas mit neuem Klassenmodul gesehen was ich entweder nicht verstehe oder bei mir nicht funktioniert.Wer hat eine kreative Idee? Besten Dank im Voraus und Grüße
Frank