Office: checkboxabfrage

Hallo zusammen

ich habe da eine kleine frage bezüglich einer abfrage von mehreren checkboxen. die abfrage soll in einer for- schlaufe sein:

Code:

For i = 1 To 7
wert = (checkbox  &  (i))
If wert.Value = True Then
  Range("ti" & (i) & "lt") = Range("TI1lt")
  Range("ti" & (i) & "x") = Range("TI1x")
Next i

unfegähr so möchte ich das gerne, nur excel findet das nicht so lustig. ok, ich eigentlich mittlerweile auch nicht mehr.

gibts da einen tipp wie ich das zum laufen bringe?

Besten dank!

gruss Dani

 

Hallo!

Teste mal dies:

Code:

Sub test()
Dim cb As OLEObject, i As Integer
For i = 1 To 7
Set cb = Tabelle1.OLEObjects("CheckBox" & i)
If cb.Object.Value = True Then
'mach irgendwas
End If
Next i
End Sub

 

hallo

besten dank für die antwort

leider funktioniert das nicht. ich muss vielleicht noch erwähnen, dass die checkbox in einem userform liegt.

gruss

 

Hallo!

Nicht nur vielleicht...

Code:

For i = 1 To 7
If UserForm1.Controls("CheckBox" & i).Value = True Then
'mach was
End If
Next i

 

jetzt passts! besten dank!