Schleife von Basic in VBA umschreiben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Sub Makro2() Dim bntNr Dim A As Integer Dim B As Integer Dim I As Integer Dim II As Integer Dim intNr As Integer, antNr As Integer, entNr As Integer intNr = IIf(Cells(15, 9) sollte diese Zahleninhalte beinhalten ' 11 12 10 11 12 8 9 10 11 5 6 7 8 9 1 2 3 4 5 6 A = A - 1 ' = antNr = entNr - 1 - statt A = A - 1 B = B - 1 ' = bntNr = entNr - 1 - statt B = B - 1 Next II A = A + 1 ' = antNr = entNr - 1 - statt A = A + 1 B = B + 2 ' = bntNr = entNr - 1 - statt B = B + 2 Next I Cells(15, 10) = II ' .................Cells(15, 10) = ii End Sub

Hallo Klaus-Dieter,
ja es sieht so komisch im ersten Augenbilick aus. Die Schleife soll im Prinzip rückwärts laufen, den Zahlen bereich von 1-12 insgesamt verschieben. Das Ergebniss solte sein , dass in der Schleife Variable eine Zahlen Reihe wie unten beschrieben. Ich denke ich bekommen es vielleicht hin, wenn nicht würde ich gerne weiterhin Fragen an Euch stellen.
So sollte nun beim ersten Durchlauf die Zahlenwerte in der inneren Schleifevariable 11 und 12 erzeugen
der zweite Durchlauf beginnt dann mit den Zahlen 10 11 12.
der dritte Durchlauf beginnt dann mit 8 9 10 11
Ddr vierte Durchlauf beginnt dann mit 5 6 7 8 9.
der fünfte Durch lauf beginnt dann mit 1 2 3 4 5 6
Diese Zahlenwerte sollten in der inneren FOR NeXT Schleife in Variable ii erzeugt und mit Cells(15, 10) = ii oder mit einer anderen Ausgabe abgefragt und angezeigt werden können, diese ist auch die Hauptbedinnung für die Erstellung dieses Programmes.
Auch an Dich vorerst vielen Dank.
Gruß Balli

_ Option Explicit Sub zahlenreihe() Dim intZeile As Integer Dim varZahlArr As Variant varZahlArr = Array(11, 12, 10, 11, 12, 8, 9, 10, 11, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6) For intZeile = LBound& _ #40;varZahlArr) To UBound(varZahlArr) Cells(intZeile + 1, 1) = varZahlArr(intZeile) Next intZeile End Sub

Sub Zahlenreihe() Dim intA As Integer Dim lngC1 As Long Dim lngC2 As Long intA = 11 For lngC1 = 0 To 4 For lngC2 = 0 To lngC1 + 1 Cells(lngC1 + 1, lngC2 + 1) = intA - lngC1 + lngC2 Next intA = intA - lngC1 Next End Sub

Beliebteste Forumthreads (12 Monate)

Schleife von Basic in VBA umschreiben

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schleife von Basic in VBA umschreiben

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread