Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auf Userform Controls zur Laufzeit erstellen?

Auf Userform Controls zur Laufzeit erstellen?
18.06.2007 10:58:17
Johannes
Hallo xlGemeinde,
der Betreff sagts eigentlich schon. Was ich genau machen moechte ist, Checkboxen zur Laufzeit dynamisch auf einer Userform zu erstellen und auf Ereignisse und Eigenschaften jener zugreifen.
Ueber einen Trigger, wie das funktioniert, wuerd ich mich freuen. :-)
Gruesse und vielen Dank vorab,
Johannes D.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Teilloesung - aber wie auf Ereignisse reagieren?
18.06.2007 11:30:59
Johannes
Set x = UserForm1.Controls.Add("Forms.Checkbox.1", "DynamischeCheckbox", True)
Und wie komm ich jetzt ausgeloesten Ereignissen jener auf die Schliche? :-)
Gruesse,
Johannes

AW: Teilloesung - aber wie auf Ereignisse reagieren?
18.06.2007 13:01:04
Rudi
Hallo,
dafür musst du die Boxen einer eigenen Klasse zuweisen.
in ein Klassenmodul (clsCheckBox)

Option Explicit
Public WithEvents myCBX As MSForms.CheckBox
Sub myCBX_Click()
MsgBox myCBX.Name
End Sub


in ein Modul:


Public oCBX(1 To 10) As New clsCheckBox


in die UF:


Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 10
Set oCBX(i).myCBX = Me.Controls.Add("forms.checkbox.1")
With oCBX(i).myCBX
.Name = "myCBX " & i
.Left = 10
.Top = 10 + (i - 1) * 15
.Caption = i
End With
Next
End Sub


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

Anzeige
Gigantisch! Danke!
18.06.2007 13:38:44
Johannes
Hallo Rudi,
wunderbar - du hat meinen Tag gerettet! :-)
Gruesse,
Johannes

Links zu Excel-Dialogen

CheckBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige