Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

EINBETTEN("Forms.CheckBox.1";"")

700 views
Skip to first unread message

Bernd Vier

unread,
Jan 22, 2001, 5:28:39 AM1/22/01
to
Hallo,

ich habe eine Tabelle (Fragebogen) mit Hunderten von Objekten der Form
"=EINBETTEN("Forms.CheckBox.1";"")"
bzw. "=EINBETTEN("Forms.OptionButton.1";"")" die in Zellen stehen, wobei
jeweil 4 Boxen nebeneinander
eine Gruppe bilden, zB. checkbox124, checkbox125, checkbox126,
checkbox127 ...

Diese sollen nun mitttels VB/VBA ausgewertet werden, ob also
checkbox124.value = true ist oder eine der drei anderen usw.

Eine Schleife, mit der ich alle checkboxes abfrage (zB. mit einer For
each -Schleife) führten zu keinem Erfolg.
Irgendwo hakt die Sache.

Wer kann mir weiterhelfen ?

Gruss
Bernd


Frank Arendt-Theilen

unread,
Jan 22, 2001, 7:33:47 AM1/22/01
to
Hallo Bernd,
hier ein Beispiel-Makro:

Sub CheckboxenAuswerten()
Dim intI As Integer, Text As String
For intI = 124 To 127
Text = Text & ActiveSheet.OLEObjects("Checkbox" & _
intI).Object.Value & vbLf
Next
MsgBox Text
End Sub

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de


Am Mon, 22 Jan 2001 11:28:39 +0100, schrieb "Bernd Vier"
<bernd...@materna.de> in microsoft.public.de.excel zu
"EINBETTEN("Forms.CheckBox.1";"")":

0 new messages