For... Next
09.03.2005 07:12:53
Ina
Ich hab ein Problem mit meinem Programmcode. Ich bekomme die Fehlermeldung 'For ohne Next' bei next lv_stelle. Aber wieso? Ich hoffe es kann mir jemand helfen. Ich schreib mal den dazugehörenden Programmcode dazu. Ich hoffe er ist leicht verständlich!
Danke schon mal im Voraus!
For lv_stelle = 1 To lv_stringlaenge
lv_t = Mid(gv_convert, lv_stelle, 1)
If IsNumeric(lv_t) Then
If lv_stelle >= 2 Then
lv_stelle_vorgaenger = lv_stelle - 1
lv_t_vorgaenger = Mid(gv_convert, lv_stelle_vorgaenger, 1)
If lv_t_vorgaenger = "." Then
GoTo NaechsteStelle
End If
'If lv_stelle = 1 & IsNumeric(lv_t) Then
' lv_defectId = lv_defectId & lv_t
'End If
lv_abstand = lv_stelle - lv_stelle_vorgaenger
If lv_abstand >= 1 Then
lv_ZeichenZaehler = lv_ZeichenZaehler + 1
If lv_ZeichenZaehler lv_defectId = lv_defectId & lv_t
lv_stelle_vorgaenger = lv_stelle
End If
Else
lv_ZeichenZaehler = 0
lv_defectId = ""
End If
Else
If lv_ZeichenZaehler lv_defectId = ""
lv_stelle_vorgaenger = lv_stelle
lv_ZeichenZaehler = 0
End If
End If
lv_gefunden = False
If lv_collection.Count = 0 Then
If lv_ZeichenZaehler = 4 Then
lv_collection.Add lv_defectId
lv_defectId = ""
lv_ZeichenZaehler = 0
End If
End If
For lv_spalte = 1 To lv_collection.Count
Do While lv_defectId = lv_collection.Item(lv_spalte)
lv_gefunden = True
lv_spalte = lv_spalte + 1
Exit Do
Loop
Next lv_spalte
If lv_gefunden = False Then
If lv_ZeichenZaehler = 4 Then
lv_collection.Add lv_defectId
lv_defectId = ""
lv_ZeichenZaehler = 0
End If
End If
NaechsteStelle:
Next lv_stelle