habe in einer Userform auf einer Multipage mehrere Checkboxen welche wenn sie aktiv sind Werte aus einem excel-sheet übernehmen. Gibt es eine Möglichkeit eine Schleife einzubinden, die wenn egal welche Checkbox aktiviert/inaktiviert wurde den gewünschten Wert aus dem Sheet übernimmt, oder muss ich diese Funktion für jede Checkbox seperat festlegen.
Ich habe im Moment eine Möglichkeit gefunden, die bei jeder Mausbewegung über der Multipage jede Checkbox prüft und falls aktiv den Wert übernimmt, falls inaktiv den Wert auf "0" setzt... Das Problem dabei, das Ganze findet verzögert statt... gibt es eine andere Möglichkeit? Bitte um eure Hilfe!
LG
Andreas
P.S. Anbei der Code den ich im Moment verwende
Private Sub MultiPage1_MouseMove(ByVal Index As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim ICounterQ As Integer
For ICounterQ = 1 To 24
If Controls("Q" & ICounterQ).Value = True Then Controls("PunkteQ" & ICounterQ).Value = Sheets("BB_Kriterien").Cells(ICounterQ + 3, 2) Else Controls("PunkteQ" & ICounterQ).Value = 0
Next ICounterQ
Dim ICounterSI As Integer
For ICounterSI = 1 To 24
If Controls("SI" & ICounterSI).Value = True Then Controls("PunkteSI" & ICounterSI).Value = Sheets("BB_Kriterien").Cells(ICounterSI + 3, 5) Else Controls("PunkteSI" & ICounterSI).Value = 0
Next ICounterSI
Dim ICounterSD As Integer
For ICounterSD = 1 To 24
If Controls("SD" & ICounterSD).Value = True Then Controls("PunkteSD" & ICounterSD).Value = Sheets("BB_Kriterien").Cells(ICounterSD + 3, 8) Else Controls("PunkteSD" & ICounterSD).Value = 0
Next ICounterSD
Dim ICounterS As Integer
For ICounterS = 1 To 40
If Controls("S" & ICounterS).Value = True Then Controls("PunkteS" & ICounterS).Value = Sheets("BB_Kriterien").Cells(ICounterS + 3, 11) Else Controls("PunkteS" & ICounterS).Value = 0
Next ICounterS
End Sub