[VisualBasic] For Next Schleife

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von see_you_in_hell, 13. Juni 2008 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 13. Juni 2008
    For Next Schleife

    Hey RRler,

    hab da ein kleines Problem und zwar will ich eine Schleife erstellen die 5 Zahlen ohne Leerzellen in die Tabelle einträgt. Der Zähler soll von 1 bis 50 festgelegt werden und in 10er Schritten ausgeführt werden.
    Das problem ist jetzt, dass er immer 10 Leerzellen freilässt und dann erst die nächste Zahl einträgt.

    Habt ihr eine Lösung für mich? Wäre euch sehr dankbar

    Code:
    Sub Uebung4()
 Dim i As Integer
 For i = 1 To 50 Step 10
 Cells(i, 1) = i
 Next i
End Sub
     
  3. 13. Juni 2008
    AW: For Next Schleife

    Mglw hab ich des jetzt vom Sinn her nicht kapiert aber so gehts meiner meinung nach ^^

    Code:
    Sub Uebung4()
 Dim i As Integer
 For i = 1 To 50 Step 10
 Cells(i[COLOR="Red"]/10[/COLOR], 1) = i
 Next i
End Sub
     
  4. 13. Juni 2008
    AW: For Next Schleife

    Geht leider nicht, kommt Laufzeitfehler :/

    So um das besser zu verstehen...so soll es aussehen: Pic1
    Und so sieht es aus wenn ich es ausführe: pic2

    see_you
     
  5. 13. Juni 2008
    AW: For Next Schleife

    Dann nur so , funktioniert bei mir subba.

    Code:
    Sub Uebung4()
 Dim i As Integer
 For i = 1 To 5 Step 1
 Cells(i, 1) = i
 Next i
End Sub
    Du hast die schleife 50x laufen lassen, dachte dem liege etwas bestimmtes zugrunde. Allerdings ist dem ja nicht so

    Mfg, Inqui.
     
  6. 13. Juni 2008
    AW: For Next Schleife

    Hmm ne das ist es auch nicht. Will ja, dass das zweite Bild so aussieht wie das erste, sprich 1,11,21,31,41 untereinander und nicht mit 10 Leerzeichen auseinander.

    see_you
     
  7. 13. Juni 2008
    AW: For Next Schleife

    So.. letzter versuch... ^^

    Code:
    Sub Uebung4()
 Dim i, increase As Integer
 increase = 0
 For i = 1 To 5 Step 1
 Cells(i, 1) = 1 + (increase * 10)
 increase = increase + 1
 Next i
End Sub
    Nu passt des aber ! Sonst bekomm ich noch ne meldung wegen spam
     
  8. 13. Juni 2008
    AW: For Next Schleife

    Code:
    Sub Uebung4()
 Dim i As Integer, iZaehler As Integer
 
 iZaehler = 1

 For i = 1 To 5 Step 10
 Cells(i, 1) = iZaehler
 iZaehler = iZaehler + 10
 Next i
End Sub
    // Edit

    Ups, hab mich bei Inquisito verlesen, das is das gleiche wie meins^^
     
  9. 13. Juni 2008
    AW: For Next Schleife

    Hey es funkioniert vielen dank euch beiden
    Könntet ihr mir das mit dem increase erklären? Kenn den Befehl noch nicht.

    see_you
     
  10. 13. Juni 2008
    AW: For Next Schleife

    Ist kein befehl ist ne weitere Variable.

    1.) Es wird die Zelle die in spalte i ist auf den Wert 1 + (increase * 10) gesetzt (also 1 + 0*10) im ersten durchlauf.
    2.) Es wird bei jedem durchlaufen der Schleife die Variable increase um 1 erhöht.
    3.) Dann wieder von vorne ^^ also ist increase dann 1 also lautet der neue Wert (1 + 1*10) = 11.


    Code:
    Sub Uebung4()
 Dim i, [COLOR="Red"]increase [/COLOR]As Integer
 increase = 0
 For i = 1 To 5 Step 1
 Cells(i, 1) = 1 + ([COLOR="Red"]increase [/COLOR]* 10)
 [COLOR="Red"]increase [/COLOR]= [COLOR="Red"]increase [/COLOR]+ 1
 Next i
End Sub
     
  11. 13. Juni 2008
    AW: For Next Schleife

    Ah meint ich ja, hab des verwechselt
    Danke fürs erklären, hat mir sehr geholfen!

    ~closed~
     
  12. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.