ich brauche Hilfe dabei, eine Schleife zu bauen.
Ich habe dazu eine ganz gute Beispielmappe gemacht.
https://www.herber.de/bbs/user/79180.xls
Hier die Erläuterung zu dem was ich nicht hinbekomme.
In der Beispielmappe
--------------------------------------------------------------------------------------------------------------------
- Eine Userfom enthält eine Multipage und ein Button.
- Eine Seite der Multipage besitzt noch mal eine Multipage.
- 10 Checkboxen sind verteilt auf der Userform, jeweils 2 Checkboxen je Multipage-Seite.
- die Checkboxen sollen unterschiedliche Eigenschaften bekommen, je nach Inhalt der jeweiligen Zelle.
- Die Eigenschaften werden in einer Tabelle über eine Zahl gesteuert.
- Beim Klick auf den Button sollen den Checkboxen die Eigenschaften zugewiesen werden.
--------------------------------------------------------------------------------------------------------------------
Bei der hohen Zahl an Checkboxen (ca. 700) in meiner eigentlichen Datei ist das Schreiben des Codes in folgender Form viel zu viel für mich und sicher nicht die eleganteste Lösung:
Sub EigenschaftenDerCheckBoxen
Dim WS As Worksheet
Set WS = Worksheets("SheetXY")
If WS.Range("G3") = "0" Then
Userform.Checkbox1.Value = False
Userform.Checkbox1.Visible = False
Else
End If
End Sub
Wie kann man das in einer Schleife oder Ähnlichem realisieren? Sowas wie einen Gruppennamen kann ich den CheckBoxen zuweisen wenn das nützlich sein sollte.
Und noch eine Frage: wie deklariert man Controls oder Userformen (ähnlich Dim WS as Worksheet)?
Dank und Gruß
Erdogan.
PS: Feedback ist selbstverständlich!