Hallo Kornelia,
>
> oDoc = ThisComponent
> oSheet = oDoc.Sheets.getByName("Tabelle1")
> oDrawpage = oSheet.Drawpage
> oForm = oDrawpage.Forms.GetByName ("Standard")
>
> Dlg = oDoc.GetCurrentController ()
> i = 1
> While i < 58
IF oForm.HasByName("CheckBox & CStr(i)) THEN
> oOption = oForm.GetByName ("CheckBox" & CStr(i))
> Ctrl = Dlg.GetControl (oOption)
> Ctrl.Model.Enabled = True
END IF
> i = i + 1
> Wend
>
> Und der Fehler: BASIC-Laufzeitfehler. Es ist eine Exception Typ:
> com.sun.star.container.NoSuchElementException Message: hat sich
> aufgeklärt -
> Asche auf mein Haupt: Die Schleife war nicht durchgängig, soll heißen, es
> fehlte eine (nee, sogar mehrere) CheckBoxen beim Durchlaufen der
> Schleife. Armes Basic, hat sich so abgequält. ;-)
>
Habe ich gerade gelesen, dient zur Überprüfung, ob die Checkbox überhaupt
existiert. Dann kann ruhig eine Nummer zwischendurch aus versehen ausfallen.
Gruß
Robert
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
