For-Schleife endet zu früh

Hallo zusammen,
ich habe ein Problem mit einer For-Schleife. Die Schleife soll 6 mal durchlaufen werden, aber sie endet bereits nach dem 5. Durchlauf. Da der ganze Code viel zu lange wäre und außerdem auf ein anderes Program via COM-Schnittstelle zugreift, habe ich nur die betreffende Schleife unten angegeben. Die Variable intAnzStellen wird auf 6 gesetzt. Der Code läuft bis II = 4 wie gedacht durch. Beim erreichen des Next II wird der Wert für II auch auf 5 erhöht, nur die Schleife wird nicht erneut durchlaufen. Kann sich da irgendjemand einen Reim drauf machen?


For II = 0 To intAnzStellen - 1
'ermittelt die Anzahl der auszugebenden Stäbe
intAnzStaebe = WorksheetFunction.CountIf(wksSteuerung.Range(wksSteuerung.Cells( _
conListeZeile1, conListeSpalte1 - 1), _
wksSteuerung.Cells(conListeZeile1 + conStaebeMAX, conListeSpalte1 - 1)), "Stelle " & _
II + 1)
ReDim strEKs(intAnzStaebe - 1, 0)
For JJ = 0 To intAnzStaebe - 1
strEK1 = listeInArray(wksSteuerung.Cells(conListeZeile1 + JJ + intStartZStelle,  _
conListeSpalteEKs).Value)
If Not wksSteuerung.Cells(conListeZeile1 + JJ + intStartZStelle, conListeSpalteEKs). _
Value = "" Then
If UBound(strEK1) > UBound(strEKs, 2) Then ReDim Preserve strEKs(intAnzStaebe -  _
1, UBound(strEK1))
For KK = 0 To UBound(strEK1)
strEKs(JJ, KK) = strEK1(KK)
Next KK
End If
Next JJ
For JJ = 0 To intAnzStaebe - 1
For KK = 0 To UBound(strEKs, 2)
If strEKs(JJ, KK)  "" Then
For Each wks In ThisWorkbook.Sheets
If wks.Name = "Stelle " & II + 1 & " - " & strEKs(JJ, KK) Then GoTo  _
weiter3
Next
ReDim intEKPos(UBound(intEKPos) + 1)
ReDim Preserve strEK2(UBound(strEK2) + 1)
strEK2(UBound(strEK2) - 1) = strEKs(JJ, KK)
wksT1.Visible = True
wksT1.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Set wksErg = ThisWorkbook.ActiveSheet
wksErg.Name = "Stelle " & II + 1 & " - " & strEKs(JJ, KK)
wksT1.Visible = False
End If
weiter3:
Next KK
Next JJ
intStartZStelle = intStartZStelle + JJ
Next II

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
sind die Variablen II und intAnzStellen als Ganzzahl (Long oder Integer) deklariert?
eine mögliche Erklärung wäre, dass aufgrund der generellen Rechnenungenauigkeit von Computern bei " intAnzStellen - 1" nicht 5 das Ergebnis ist, sondern 4,9999999999987988 und dann bei II = 5 der Endwert schon überschritten ist.
warum rechnest du überhaupt?
du verwendest im Code immer II+1, wenn du II direkt verwendest, ist die Schleife:
For II = 1 To intAnzStellen
damit vermeidest du unnötige Berechungen. Du müsstest dann halt jedes II in der Schleife durch II-1 ersetzen, aber für deine Schleife selbst hast du unnötige Berechnungen vermieden.
oder mach: For II = 0 To intAnzStellen - 0.5
bei Step 1 sollte das den gleichen effektiven Endwert ergeben wie -1 und du hast genügend Abstand, so dass die o.g. genannten Ungenauigkeiten nicht wirksam werden.
Gruß Daniel

Private Function Worksheet_exists(WSName As String) As Boolean 'wenn Fehler, = not exists, => False Dim W On Error Resume Next Set W = ThisWorkbook.Worksheets(WSName) Worksheet_exists = Not (W Is Nothing) End Function

For JJ = 0 To intAnzStaebe - 1 For KK = 0 To UBound(strEKs, 2) If strEKs(JJ, KK) "" Then If Not Worksheet_exists("Stelle " & II + 1 & " - " & strEKs(JJ, KK)) Then ReDim intEKPos(UBound(intEKPos) + 1) ReDim Preserve strEK2(UBound(strEK2) + 1) strEK2(UBound(strEK2) - 1) = strEKs(JJ, KK) wksT1.Visible = True wksT1.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Set wksErg = ThisWorkbook.ActiveSheet wksErg.Name = "Stelle " & II + 1 & " - " & strEKs(JJ, KK) wksT1.Visible = False End If End If Next KK Next JJ

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread