23. Jul 2019, 07:05
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0413
  E03: Schleife läuft nicht richtig
 Von Kasnudel
 Am 28. September 2008 um 19:24:48
 Frage Hallo ich brütte schon mindestens eine halbe Stunde über einem Problem.Vielleicht könnt ihr helfen.Die Schleife läuft nicht bis zum Schluß,warum nicht?



Dim ilezteZeile As Integer
Dim iMonate As Integer
Public Sub Jahre_berechnen()
'Schleife wird solange durchlaufen bis die letzte befüllte Zelle erreicht ist.'

Dim Wks_Arbeit As Worksheet
Dim iZeile As Integer
Dim iRest As Integer
Set Wks_Arbeit = Worksheets("Tabelle1")

Wks_Arbeit.Range("F65536").End(xlUp).Offset(0, 0).Select
'letzte befüllte Zeile von Spalte F'
ilezteZeile = ActiveCell.Row 'lezte Zeile in die Variable

Cells(5, 6).Select 'beginne bei F5'
iZeile = 5 'Zeile=5'

Do While Cells(iZeile, 6) 'Start=F5'
Cells(iZeile, 6).Select
iMonate = Cells(iZeile, 6).Value 'Zelleninhalt an Variable'
Cells(iZeile, 8).Value = iMonate 'Ausgabe in Spalte H'
iZeile = iZeile + 1
If (ActiveCell.Row = ilezteZeile) Then Exit Do 'wenn die Durchgänge erreicht sind dann Schleife beenden'
Loop

End Sub
[ VB-/VBA-Forum | Archiv 0413 | Archiv-Übersicht ]
 Antworten
E03: Schleife läuft nicht richtig - Kasnudel 28. September 2008 um 19:24:48
Re: Schleife läuft nicht richtig - r.mueller@sz-online.de 28. September 2008 um 23:30:06

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum