CheckBox - Status in einer Schleife abfragen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: CheckBox - Status in einer Schleife abfragen
von: Lothar Schmidberger
Geschrieben am: 30.11.2003 21:53:12


Hallo,



ich möchte ein CheckBox in eine Schleife packen und den jeweiligen 

Status (Value) abfragen.



---------------- Schnipp -------------------



DAS GEHT! + hier bekomme ich NUR den Namen

For i = 1 To Tabelle5.OLEObjects.Count

    Debug.Print Tabelle5.OLEObjects(i).Name

Next



~~ich möchte jedoch den Status (Value)~~



---------------- Schnipp -------------------



Das geht NICHT + warum nicht ?

Dim i%

i = 1

Do While i < 5

    Debug.Print Tabelle5.CheckBox(i).Value

    i = i + 1

Loop



Fehlermeldung:

++ Methode oder Datenobjekt nicht gefundnen ++



---------------- Schnipp -------------------



Please help me

Lothar Schmidberger


Bild


Betrifft: AW: CheckBox - Status in einer Schleife abfragen
von: K.Rola
Geschrieben am: 30.11.2003 21:58:05

Hallo,

Option Explicit

Sub cb_Status()
Dim i As Byte
  For i = 1 To 3
    Cells(i, 1) = Sheets(1).OLEObjects("CheckBox" & i).Object.Value
  Next
End Sub


Gruß K.Rola


Bild


Betrifft: AW: CheckBox - Status in einer Schleife abfragen
von: Lothar Schmidberger
Geschrieben am: 30.11.2003 23:08:01


Hallo,



vielen Dank  :-)  es geht !!



mein Problem wahr das ich die Werte mit wie folgt abfragen muß.





For i = 1 To Tabelle5.OLEObjects.Count

    if Tabelle5.OLEObjects(i).Object.Value = False then

      mach irrgend etwas

    end if

end if





Ich bin nicht auf den Begriff "Object" gekommen   ??





nochmals Danke an K.Rola



mfg.

Lothar Schmidberger








Bild


Betrifft: AW: CheckBox - Status in einer Schleife abfragen
von: K.Rola
Geschrieben am: 30.11.2003 23:31:12

Hallo,

grenz das aber besser auf Checkbox ein, sonst gibts einen fehler, wenn
noch andere OLE- Objekte vorhanden sin, die keinen Value haben.

Gruß K.Rola


Bild

Beiträge aus den Excel-Beispielen zum Thema " CheckBox - Status in einer Schleife abfragen"