Checkboxen mit Schleife abfragen

Computer: Software & Programmierung Office Software
#1

Hallo

Ist es möglich mehrere Checkboxen mit eine Schleife abzufragen ?

For i = 1 To 4
 If ("checkbox" & i).Value = 0 Then
 msgbox("checkbox " & i & " ist inaktiv!"
 End If
Next i

Funktioniert nicht, da die Checkbox nicht als Objekt erkannt wird.
Mit checkbox(i) will er Checkbox als Variable deklarieren.

Gruss
Snetto

#2

Ist es möglich mehrere Checkboxen mit eine Schleife abzufragen
?

Hallo Snetto,

probier’s mal so:

Sub tt()
Dim i
For i = 1 To 4
 If Tabelle1.OLEObjects("CheckBox" & i).Object.Value = False Then
 MsgBox "CheckBox " & i & " ist inaktiv!"
 End If
Next i
End Sub

Gruß
Reinhard

#3

Sub tt()
Dim i
For i = 1 To 4
If Tabelle1.OLEObjects(„CheckBox“ & i).Object.Value = False
Then
MsgBox „CheckBox " & i & " ist inaktiv!“
End If
Next i
End Sub

Super, auf OLEObjetcs wäre ich nicht gekommen.

If Sheet1.OLEObjects("CheckBox" & i) = 0 Then

ist die Lösung.

Danke Dir.
Gruss