OptionButton_Click in einer Schleife
09.12.2002 18:08:32
r.sch.
ich möchte den Schreibaufwand minimieren und die Click Ereignisse mehrere OptionButtons (wie ich als kleiner dummer VBAler schreiben würde: Private Sub OptionButton(i)_Click).. usw in einer Schleife behandeln.
Natürlich geht's so nicht, hab' selber schon mal mit guter Hilfe hier aus dem Forum eine UserForm zur Laufzeit erweitert ("s. Archiv")Dank nochmal an mathias r. und natürlich an Hans!
Im Unterschied zu jenem Fall sollen hier keine neuen Controls hinzugefügt werden, ich möchte die Buttons lediglich indizieren und dann nur noch EINE Private Sub OptionButton(i)_Click) schreiben müssen. Also:
1. Klassenmodul, Name: clsBtn; dort: Public WithEvents objBtn As msforms.OptionButton
2.
und dann im Klassenmodul z. B.:
Private Sub optB_Click()
usw (hier wird dann ausgewertet, welcher OptionButton aktiviert wurde)
Leider funktioniert das so nicht:
.Count
"Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft"
.Enum
"Methode oder Datenobjekt nicht gefunden"
.Add und die restliche Auswahl kommt ja nicht in Frage!
Wer weiß, was noch alles falsch ist, wenn diese Klippe genommen ist?
Vielen Dank schon mal im Voraus für eure Hilfe
Gruß
Reinhard