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

CheckBox zusammenzählen

CheckBox zusammenzählen
04.08.2005 19:31:32
thierry.bellwald@freesuf.ch
Hallo, da bin ich wieder.......
Ich möchte eine Userform erstellen mit verschiedenen CheckBox und eine TextBox. Ein Button soll dann die Userform schliessen.
Jede selektierte CheckBox ergibt die Zahl 1. Das Resultat aller CheckBox muss in der TextBox ersichtlich sein. Die Formel müsste also heissen: TextBox = CheckBox 1 + CheckBox 2 + CheckBox 3.
CheckBox = 1
CheckBox = 1
CheckBox = 1
TextBox
Ich habe es versucht, aber irgendwie funktioniert es nicht.
Vielen Dank für Eure Hilfe.
Thierry

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CheckBox zusammenzählen
04.08.2005 19:36:38
Matthias
Hallo Thierry,

Textbox1 =  IIf(CheckBox1, 1, 0) + IIf(CheckBox2, 1, 0) + IIf(CheckBox3, 1, 0)

Gruß Matthias
AW: CheckBox zusammenzählen
04.08.2005 19:51:13
Matthias
Hallo nochmal,
bei beliebig vielen CheckBoxes geht:

Dim cntl As Control
Dim i As Integer
For Each cntl In Me.Controls
If TypeName(cntl) = "CheckBox" Then
i = i + IIf(cntl.Value, 1, 0)
End If
Next cntl
TextBox1 = i

Gruß Matthias
AW: CheckBox zusammenzählen
04.08.2005 20:16:23
Thierry
Hallo Matthias
Es ist zum Heulen. Ich versuche es seit über 2 Std. mit If/Then und schreibe fast eine ganze Seite und Du, Du gibst mir kurz und bündig eine einfache Lösung. Es ist nicht fair, snif. ;-)
Jedenfalls vielen, vielen Dank für deine Hilfe. Diesen Code werde ich in Zukunft des Öfteren gebrauchen können.
Thierry
Anzeige
AW: CheckBox zusammenzählen
04.08.2005 20:40:34
Matthias
Hallo Thierry,
nicht vezagen, fragen...
Dann lernt man am schnellsten.
Schönen Abend noch
Matthias

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige