Office: Vereinfachung von VBA-code....

Hallo Forumsleser und Leserinnen.
Ich habe eine Exeltabelle mit ca 500 Checkboxen, meine frage ist ist es möglich die abfrage von Checkbox1 - Checkbox500 zu vereinfachen so das ich net immer schreiben muss

Code:

If Checkbox1=True Then 
anweisung1
anweisung2
end if
.
.
.
If Checkbox500=True Then 
anweisung1
anweisung2
end if

wäre echt super wenn es da was geben würde

Mfg Schnake

 

Hallo Schnake,

kopiere folgenden Text in das Arbeitsblatt mit den Checkboxen.

Sub Boxen_auswaehlen()
Dim box As Variant
Dim i as Integer

box = Array(CheckBox1, CheckBox2)

For i = 0 To UBound(box)
If box(i).Value = True Then
MsgBox "Anweisung"
End If
Next
End Sub

Leider musst Du das Array mit allen Namen füllen.
Hoffe Dir damit geholfen zu haben.

Schönen Gruß
*Pablo*

 

Ja danke sieht besser aus.