Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Gleiches Makro für alle Checkboxen einer Userform

Gleiches Makro für alle Checkboxen einer Userform
14.11.2007 10:59:00
Kilo
Hallo Profis!
Für Euch sicher eine Kleinigkeit - für mich zur Zeit ein unlösbares Problem - deshalb hier mein Hilferuf
Ich habe 35 Checkboxen in einer Userform (und es werden noch mehr...) - alle sollen das gleiche Makro
aufrufen. Momentan schreibe ich für jede Checkbox "Checkbox(XY) Click ..." - Das ist unheimlich viel Schreibkram und auch nicht sonderlich elegant! Geht das nicht einfacher über ein Klassenmodul? Muß allerdings zugegeben - bin bei Klassenmodulen völlig unbeleckt - brauche also ziemlich detailierte und nicht zu komplizierte Hilfe.
Habe schon 2 Std im Archiv verbracht, aber nichts wirklich verwertbares gefunden. Bin für Hilfe/Hinweise sehr dankbar.
Danke im Vorraus!!
Michael

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gleiches Makro für alle Checkboxen einer Userform
14.11.2007 11:27:55
Renee
Hi Michael,
Fang mal hier an. Soooo schwierig ist das nicht (siehe Kapitel Steuerelemente im Link).
GreetZ Renee

AW: Gleiches Makro für alle Checkboxen einer Userf
14.11.2007 12:13:00
Rudi
Hallo,
z.B.
in den Code der UF:

Option Explicit
Dim objCheckbox(1 To 35) As New clsCheckBox
Private Sub UserForm_Initialize()
Dim objControl As Control, i As Integer
For Each objControl In Me.Controls
If TypeName(objControl) = "CheckBox" Then
i = i + 1
Set objCheckbox(i).myCheckbox = objControl
End If
Next
End Sub


in ein Klassenmodul (clsCheckBox)


Public WithEvents myCheckbox As MSForms.CheckBox
Private Sub myCheckBox_Click()
MsgBox myCheckbox.Caption
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige