Hallo.
Ich habe folgendes Problem und hoffe, dass mir jemand helfen kann.
Ich habe eine Userform unter anderem mit einer Multipage (10 )Seiten. Auf diesen habe ich an verschiedenen Stellen Checkboxen. Diese sollen durch eine Schleife auf Ihren Zustand /value abgefragt werden und dann Farbmarkierungen steuern.
Wenn ich diese Schleife, die 100% läuft in die Codeumgebung der Userform stelle ist alles in Ordnung.
Da dies aber nicht der Übersichtlichkeit dient, die Abläufe insgesamt sind sehr groß, möchte ich dies in einem Modul ablaufen lassen. Nur hier bin ich mit meinen Kenntnissen am Ende. Ich bekomme es nicht zum laufen.Es fehlt immer der Verweis zur Userform, die ich nicht hinbekomme.
Hier der Code:
Dim i As Integer
For i = 1 To 12
'im Blatt 1 der MP*************************************
If Me.Controls("CBW_1_" & i).Value = True Then Me.Controls("LB_" & i & "_1").BackColor = &HC0C0FF ' rot
If Me.Controls("CBW_1_" & i).Value = False Then Me.Controls("LB_" & i & "_1").BackColor = &H8000000F 'grau
If Me.Controls("CBW_1_" & i).Value = True Then Me.Controls("LB_" & i & "_1").ForeColor = &H0& ' schwarz
If Me.Controls("CBW_1_" & i).Value = False Then Me.Controls("LB_" & i & "_1").ForeColor = &H8000000F ' grau
next i
Vielen Dank schon mal jetzt für die Hilfe.
M.Druffel