OctaFish
Verenigingslid
- Lid geworden
- 6 feb 2009
- Berichten
- 43.695
- Besturingssysteem
- Windows 10/MacOS
- Office versie
- Office 365
Je kan nog eens naar ElseIf kijken...
Het kan nog veel korter als je arrays gebruikt. Die variant ben ik nog aan het uitwerken, maar jullie geven wel heel snel op
.
Code:
Do While Rng.Offset(0, -3) = True
If Rng.Offset(0, -1) <= 11 Then
Rng = blauw1
ElseIf Rng.Offset(0, -1) <= 22 Then
Rng = blauw2
ElseIf Rng.Offset(0, -1) <= 32 Then
Rng = blauw3
...
Else
Rng = blauw15
End If
Loop
