Select Case-Block vereinfachen?

[engelmarkus]

Hallo!

Ich überlege gerade, wie ich diesen Select Case-Block am besten auf eine einzelne Rechnung vereinfachen kann... Vielleicht könnt ihr mit helfen, bzw. geht das überhaupt?

Select Case MausUeberKaestchen.X
        Case 1, 4, 7
            i = MausUeberKaestchen.X - 1
        Case 2, 5, 8
            i = MausUeberKaestchen.X - 2
        Case 3, 6, 9
            i = MausUeberKaestchen.X - 3
End Select

 

[Elvan]

Ich denke nicht.

 

[mahon]

Mit dem restwert könntest du noch was machen....

Math.DivRem(MausUeberKaestchen.x, 3, rest)
If rest > 0 Then i=MausUeberKaestchen.x - rest Else i = MausUeberKaestchen.x - 3

mfg
Mahon

 

[Elvan]

Stimmt, aber besser ist:

Select Case MausUeberKaestchen.X
        Case 1, 4, 7
            i = MausUeberKaestchen.X - 1
        Case 2, 5, 8
            i = MausUeberKaestchen.X - 2
        Case 3, 6, 9
            i = MausUeberKaestchen.X - 3
        Case Else
           i = MausUeberKaestchen.X - 34497
End Select