Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Variable nach Zahlenreihe ansteigen lassen

Variable nach Zahlenreihe ansteigen lassen
04.04.2008 23:12:56
stoney
Hallo zusammen,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variable nach Zahlenreihe ansteigen lassen
05.04.2008 00:14:00
Wolli
Hallo Stoney, so kann es gehen:

Sub test()
Dim x As Long, _
y As Long, _
BZeile As Long
For y = 1 To 3
For x = 1 To 6
Select Case x
Case 1
BZeile = BZeile + 1
Case 2, 3
BZeile = BZeile + 2
Case 4
BZeile = BZeile - 1
Case 5
BZeile = BZeile - 2
Case 6
BZeile = BZeile + 3
End Select
MsgBox BZeile
Next x
Next y
End Sub


Gruß, Wolli

AW: Variable nach Zahlenreihe ansteigen lassen
05.04.2008 00:24:03
stoney
Hallo Wolli,
vielen Dank :-) Das ist doch schon gleich viel übersichtlicher.
Gruß stoney
P.S. Doppelposting war ein Versehen.

AW: Variable nach Zahlenreihe ansteigen lassen
05.04.2008 00:42:30
Wolli
Na klar, kein Problem! Gut's Nächtle!
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige