Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Anzahl CheckBoxen als Zahl ausgeben

Forumthread: Anzahl CheckBoxen als Zahl ausgeben

Anzahl CheckBoxen als Zahl ausgeben
17.02.2003 20:55:34
H.-Udo
Hallo,

Ich möchte die Anzahl der angeklickten Checkboxen in einem Label als Zahl anzeigen lassen.
Wie kann ich das anstellen?

Beispiel:
5 von 36 Chexkboxen sind "value=true"
Label5.Caption = 5

Vielen Dank im Voraus

H.-Udo


Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Anzahl CheckBoxen als Zahl ausgeben
17.02.2003 21:56:46
gordon

Hallo H.-U.

prinzipiell müsste es einfach über eine Summe der checkboxen gehen.
Label5.Caption = Checkbox1.value + Checkbox2.value ...
Falls alle Checkboxen in einem Frame liegen kann auch mit for each obj in ... und Ermittlung des Objekttyps die Summe bestimmt werden.

Gruß
gordon

Anzeige
Re: Anzahl CheckBoxen als Zahl ausgeben
17.02.2003 21:56:47
gordon

Hallo H.-U.

prinzipiell müsste es einfach über eine Summe der checkboxen gehen.
Label5.Caption = Checkbox1.value + Checkbox2.value ...
Falls alle Checkboxen in einem Frame liegen kann auch mit for each obj in ... und Ermittlung des Objekttyps die Summe bestimmt werden.

Gruß
gordon

Anzeige
Re: Anzahl CheckBoxen als Zahl ausgeben
17.02.2003 21:56:47
gordon

Hallo H.-U.

prinzipiell müsste es einfach über eine Summe der checkboxen gehen.
Label5.Caption = Checkbox1.value + Checkbox2.value ...
Falls alle Checkboxen in einem Frame liegen kann auch mit for each obj in ... und Ermittlung des Objekttyps die Summe bestimmt werden.

Gruß
gordon

Anzeige
Re: Anzahl CheckBoxen als Zahl ausgeben
17.02.2003 22:50:59
L.Vira

sub test()
dim tb as object, Z as integer
for each tb in me.controls
if typename(tb) = "TextBox" then
if tb = true then
z = z +1
end if
end if
next
Label1 = z
end sub

Re: Anzahl CheckBoxen als Zahl ausgeben
17.02.2003 22:51:00
L.Vira

sub test()
dim tb as object, Z as integer
for each tb in me.controls
if typename(tb) = "TextBox" then
if tb = true then
z = z +1
end if
end if
next
Label1 = z
end sub

Anzeige
Re: Anzahl CheckBoxen als Zahl ausgeben
17.02.2003 22:51:05
L.Vira

sub test()
dim tb as object, Z as integer
for each tb in me.controls
if typename(tb) = "TextBox" then
if tb = true then
z = z +1
end if
end if
next
Label1 = z
end sub

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige