checkboxen sperren und in textbox zählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo Roland,
das Problem ist, dass durch Anweisungen wie CheckBox3=False das Click-
Ereignis der Checkbox3 erneut ausgelöst wird. Eigentlich kann man sowas mit EnableEvents unterdrücken, aber zu meiner Überraschung geht das hier nicht.
Darum könntest du die Enabled-Eigenschaft verwenden, wobei CheckBox3 gegraut wird (was aber die Abhängigkeit von CheckBox2 hervorhebt).
Im Codemodul des UserForm:
Option Explicit


Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then TextBox1 = TextBox1 + 1
If CheckBox1.Value = False Then TextBox1 = TextBox1 - 1
End Sub


Private Sub CheckBox2_Click()
CheckBox3.Enabled = CheckBox2.Value
If CheckBox2.Value = False Then CheckBox3.Value = False
If CheckBox2.Value = True Then TextBox1 = TextBox1 + 1
If CheckBox2.Value = False Then TextBox1 = TextBox1 - 1
End Sub


Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then TextBox1 = TextBox1 + 1
If CheckBox3.Value = False Then TextBox1 = TextBox1 - 1
End Sub


Private Sub UserForm_Initialize()
CheckBox3.Enabled = False
End Sub

Gruß
stefan

hi stefan
danke dass dir das genau angesehn hast
diese loesung ist sehr gut ,,,so sind die boxen gesperrt.......was man nicht klicken kann
ich habe in meiner anwendung 6 boxen die je nach situation unterschiedlich gesperrt sind.
wenn ich da nicht weiterkomme wäre schoen wen du da nochmal helfen kannst ...aber wie mache ich das in 4 5 oder 14 tagen ?
neu einstellen ?
oder hier nochmal antworten ?
wie bekommst du das mit bei der grossen anzahl von beiträgen ?
vor ca 40 jahre hatt ich mal basic ...anfangsunterricht
ueber ablaufplan war das einigermassen verfolgbar ....:-(
ich habe beide code von dir im F8 schrittmodus laufen lassen (verfolgt)
muss aber zugeben dass ich schon muehe habe beim verfolgen geschweige denn beim aufbau eines solchen code
wie gesagt ich will nicht die andern beantworter uebergehn hier wird mir sehr oft und auch sehr kompetent geholfen .....ich dachte eben dieses spezielle beispiel ausgebaut wäre bei dir gut aufgehoben weil du genau weisst worauf es mir hier ankommt
vielen dank
gruss roland

Private Sub CheckBox2_Click() If CheckBox2.Value = False Then If CheckBox3 = True Then CheckBox3.Value = False TextBox1 = TextBox1 - 1 End If End If If CheckBox2.Value = True Then TextBox1 = TextBox1 + 1 If CheckBox2.Value = False Then TextBox1 = TextBox1 - 1 End Sub

Private Sub CheckBox3_Click() If CheckBox2.Value = False Then bCheck2 = False CheckBox3.Value = False Else bCheck2 = True End If If bCheck2 = False Then Exit Sub If CheckBox3.Value = True Then TextBox1 = TextBox1 + 1 If CheckBox3.Value = False Then TextBox1 = TextBox1 - 1 End Sub

Beliebteste Forumthreads (12 Monate)

checkboxen sperren und in textbox zählen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

checkboxen sperren und in textbox zählen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread