[VBA] Excel 2010 FOR loop i.c.m. CheckBoxjes werkt niet

[DocM3]

Halloos,

Voor mijn werk probeer ik middels Excel een dynamische to do lijst te bouwen. Middels een for loop wil ik controleren of een vinkje is geplaatst bij checkbox1 t/m 5. Op het moment dat dit zo is dan moeten de taken getoond worden die prioriteit 1 of 2 of 3 of 4 of 5 heeft, afhankelijk van welke is aangevinkt.

Nou krijg ik twee dingen niet voor elkaar:

a) Het dynamisch controleren of checkbox1,2,3,4,5 "true" is op lijn 3;
b) Het éénmalig tonen van de taak als het juist is

De code die ik hieronder toon controleert statisch CheckBox1. Daarnaast toont het vervolgens de enige taak met prioriteit 1, vijf maal als CheckBox1 haar value "true" is. Dit moet natuurlijk maar één keer.

Of ik nou de if statement aanpas, de for loops omdraai, het baat niet. Boven mijn hoofd hangt inmiddels één groot vraagteken. Ik hoop dat iemand mij verlichting kan brengen.

Visual Basic:

 Dim counter As Integer
    For I = 2 To NumOfRows
        If CheckBox1 = True Then
            For counter = 1 To 5
                If TaskArray(I - 1, Prio) = 1 And TaskArray(I - 1, Prio) <> "" And TaskArray(I - 1, NaamKlant) = geselecteerdeKlantTakenLijst Then
                    TaskPlotArray(X, 0) = TaskArray(I - 1, TaskDone)
                    TaskPlotArray(X, 1) = TaskArray(I - 1, NaamKlant)
                    TaskPlotArray(X, 2) = TaskArray(I - 1, Item)
                    TaskPlotArray(X, 3) = TaskArray(I - 1, Prio)
                    TaskPlotArray(X, 4) = TaskArray(I - 1, HoursPerWeek)
                    TaskPlotArray(X, 5) = TaskArray(I - 1, TrueHoursPerWeek)
                    X = X + 1
                ElseIf TaskArray(I - 1, Prio) = 1 And TaskArray(I - 1, Prio) <> "" And geselecteerdeKlantTakenLijst = "" Then
                    TaskPlotArray(X, 0) = TaskArray(I - 1, TaskDone)
                    TaskPlotArray(X, 1) = TaskArray(I - 1, NaamKlant)
                    TaskPlotArray(X, 2) = TaskArray(I - 1, Item)
                    TaskPlotArray(X, 3) = TaskArray(I - 1, Prio)
                    TaskPlotArray(X, 4) = TaskArray(I - 1, HoursPerWeek)
                    TaskPlotArray(X, 5) = TaskArray(I - 1, TrueHoursPerWeek)
                    X = X + 1
                End If
            Next
        End If
    Next

[rikkert278]

DocM3 schreef op zaterdag 04 augustus 2012 @ 01:59:

*snip*

a) Het dynamisch controleren of checkbox1,2,3,4,5 "true" is op lijn 3;
b) Het éénmalig tonen van de taak als het juist is

De code die ik hieronder toon controleert statisch CheckBox1. Daarnaast toont het vervolgens de enige taak met prioriteit 1, vijf maal als CheckBox1 haar value "true" is. Dit moet natuurlijk maar één keer.

Of ik nou de if statement aanpas, de for loops omdraai, het baat niet. Boven mijn hoofd hangt inmiddels één groot vraagteken. Ik hoop dat iemand mij verlichting kan brengen.

*snip*

a). Kun je hier niet veel beter Radioboxen gebruiken? Dan kan er maar eentje aangevinkt zijn, of een dropdown menu, of een NumericUpDown?

Dan kun je in het CheckedChanged event van de radio boxen een variable zetten naar de integer van de prioriteit, en dan kun je makkelijk dit doen:

code:

Dim prioriteit As Integer

Select Case prioriteit
     Case 1
          ' Code
     Case 2
          ' Code
     Case 3
          ' Code
     Case 4
          ' Code
     Case 5
          ' Code
End Select

Verder snap ik niet helemaal wat er in de loop gebeurt, ik vind je uitleg wat vaag. Kun je dit misschien wat verduidelijken?

[NMe]

Waar hoort mijn topic?

PRG >> OFF