Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1508to1512
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
Inhaltsverzeichnis

CheckBox Abfragen

CheckBox Abfragen
14.08.2016 10:57:33
Kopenhagen
ich habe wieder mal ein Anliegen
kann man folgenden Code vereinfachen
dieser Algorithmus geht bis zur Checkbox16
Private Sub CheckBox10_Click()
CheckBox9.Visible = False
If CheckBox10.Value = False And CheckBox11 = False And CheckBox12 = False And CheckBox13 =  _
False And CheckBox14.Value = False And CheckBox15 = False And CheckBox16 = False Then CheckBox9.Visible = True
End Sub

Private Sub CheckBox11_Click()
CheckBox9.Visible = False
If CheckBox10.Value = False And CheckBox11 = False And CheckBox12 = False And CheckBox13 =  _
False And CheckBox14.Value = False And CheckBox15 = False And CheckBox16 = False Then CheckBox9.Visible = True
End Sub
Es funktioniert zwar alles, sieht aber umständlich aus.
Tschüß Steffen

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

Betreff
Datum
Anwender
Anzeige
AW: CheckBox Abfragen
14.08.2016 11:13:42
Gerd
Hallo Steffen!
Unterstellt die Checkboxen sind in einer Userform:
Private Sub CheckBox10_Click()
Dim Z As Long
For Z = 10 To 16
If Controls("CheckBox" & CStr(Z)) = True Then
CheckBox9.Visible = False
Exit Sub
End If
Next
CheckBox9.Visible = True
End Sub
Gruß Gerd
AW: CheckBox Abfragen
15.08.2016 20:01:46
Kopenhagen
Danke Euch
Mit Klassenmodulen habe ich mich noch nicht beschäftigt.
Da muss ich mich erstmal recherchieren.
Tschüss Steffen
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige