Variable nach Zahlenreihe ansteigen lassen
04.04.2008 23:12:56
stoney
versuche gerade eine Variable (bzeile) nach einem Muster (1+2+2-1-2+3 und wieder von vorne) ansteigen zu lassen, also 1,3,5,4,2,6,8,10,9,7,11,13,15,14,12.....
Sieht bis jetzt so bei mir aus:
Private Sub CommandButton2_Click()
For y = 1 To 3
For x = 1 To 5
If x = 1 Then
bZeile = bZeile + 1
End If
If x = 2 Then
bZeile = bZeile + 2
End If
If x = 3 Then
bZeile = bZeile + 2
End If
If x = 4 Then
bZeile = bZeile - 1
End If
If x = 5 Then
bZeile = bZeile - 2
End If
MsgBox bZeile
Next
bZeile = bZeile + 3
Next
End Sub
Gibt es da auch eine kürzere Lösung, dass man das Muster irgenwie anders vorgibt?
Grüße von der Küste
stoney
Anzeige