logik-Problem: Rest und Ganzzahl in VBA
19.10.2006 19:04:55
Christian
stehe irgendwie auf dem Schlauch...
ich möchte in VBA einen Zähler (1 bis ...) so umrechnen, dass:
1) wenn der Rest von "Zähler" durch 3 gleich 1 ist, dann soll das Ergebnis 0 sein.
2) wenn der Rest von "Zähler" durch 3 gleich 2 ist, dann soll das Ergebnis 3 betragen.
3) und wenn der Rest von "Zähler" durch 3 gleich 0 ist, dann soll 6 herauskommen.
also:
1 -> 0
2 -> 3
3 -> 6
4 -> 0
5 -> 3
6 -> 6
...
Das geht natürlich mit einer Fallunterscheidung ("Select Case" oder "If Then Else") aber ich suche eigentlich eine elegantere Lösung...
Kann man die Berechnung irgendwie in einem Ein-Zeiler ausdrücken?
Ich hoffe auf eure geniale Hilfe,
Bsp:
Sub dreier()
Dim i as Integer, k as Integer
For i = 1 To 12
k = (i mod 3) '...aber wie weiter?
Debug.Print "i: " & i & " | k: " & k
Next
End Sub
Grüße
Christian