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
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige