Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
448to452
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
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Checkbox

Checkbox
06.07.2004 07:33:39
franz
Guten Morgen !
Frage:
Hat jemand ein Beispiel oder Ansatz für Folgendes...
In einer Userform sind 6 Checkboxen.
Es sollte folgendes passieren:
Wenn Checkbox1_Click ein Häkchen bekommt,
sollen alle restlichen Checkboxen ein Häkchen bekommen.
Gruss
Franz

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

Betreff
Datum
Anwender
Anzeige
AW: Checkbox
KlausK
Moin Franz,
nur so ohne es getestet zu haben, als Ansatz
Wenn die Checkbox 1 = true
setze alle anderen Checkboxen ebenfalls = true
Gruß
KlausK
AW: Checkbox
06.07.2004 08:14:49
Melanie
Hallo Franz,
wenn die CheckBoxen forlaufend nummeriert sind probiere Folgendes:

Private Sub CheckBox1_Click()
Dim intI As Integer
For intI = 1 To 6
Me.Controls("CheckBox" & intI).Value = CheckBox1.Value
Next intI
End Sub

Je nachdem welchen Wert Checkbox1 hat, werden die anderen angeglichen.
--
Mit freundlichen Grüssen
Melanie Breden
- Microsoft MVP für Excel -
http://excel.codebooks.de (Das Excel-VBA Codebook)
#Excel-Auftragsprogrammierung#
Anzeige
AW: Checkbox
06.07.2004 08:34:01
franz
Hallo !
Danke Euch.
Aber die Häckchen werden nicht automatisch in der Userform
bei den Checkbox2 bis Checkbox5 gesetzt,
wenn ich das Häckchen bei Checkbox1 setze.
Ich kann ja mal hier die Userform (code) anzeigen:
Option Explicit

Private Sub CheckBox1_Click()
V5 = CheckBox1
End Sub


Private Sub CheckBox2_Click()
V6 = CheckBox2
End Sub


Private Sub CheckBox3_Click()
V7 = CheckBox3
End Sub


Private Sub CheckBox4_Click()
V8 = CheckBox4
End Sub


Private Sub CheckBox5_Click()
V9 = CheckBox5
End Sub


Private Sub cmdOK_Click()
Unload Me
End Sub


Private Sub ComboBox1_Change()
Jahr = ComboBox1
End Sub


Private Sub ComboBox2_Change()
lstrInputName = ComboBox2
End Sub


Private Sub ComboBox4_Change()
TestOriginal = ComboBox4
End Sub


Private Sub UserForm_Initialize()
Dim i As Integer
Jahr = 0
For i = 1 To 2
ComboBox1.AddItem 2003 + i
Next
Dim intI As Integer
For intI = 1 To 5
Me.Controls("CheckBox" & intI).Value = CheckBox1.Value
Next intI
lstrInputName = ""
TestOriginal = ""
V5 = False
V6 = False
V7 = False
V8 = False
V9 = False
With ComboBox2
.AddItem "ABC"
.AddItem "DEF"
.AddItem "GHI"
End With
With ComboBox4
.AddItem "Test"
.AddItem "Original"
End With
End Sub

Gruss
Franz
Anzeige
AW: Checkbox
P@ulchen
Hi Franz,
Du solltest den Code dahin schreiben, wo ihn Melanie vorgegeben hat...

Private Sub CheckBox1_Click()
Dim intI As Integer
V5 = CheckBox1
For intI = 1 To 6
Me.Controls("CheckBox" & intI).Value = CheckBox1.Value
Next intI
End Sub

Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
AW: Checkbox
06.07.2004 08:49:08
franz
Hallo !
Danke. Jetzt klappt es, wie es sollte.
Tschuldigung Melani, mein Fehler.
Danke Paulchen den Tipp.
Gruss
Franz
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige