For... Next

Bild

Betrifft: For... Next von: Ina
Geschrieben am: 09.03.2005 07:12:53

Guten Morgen!
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 <= 4 Then
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 < 4 Then
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

Bild


Betrifft: AW: For... Next von: bst
Geschrieben am: 09.03.2005 07:52:43

Morgen Ina,

ein EndIf fehlt. Du hast da 11 If's und 10 EndIf's.

cu, Bernd


Bild


Betrifft: AW: For... Next von: Ina
Geschrieben am: 09.03.2005 08:01:20

Ja zu einfach. Daran hab ich natürlich nicht gedacht. Dankeschön!


 Bild

Beiträge aus den Excel-Beispielen zum Thema "ExcelAddIn xla Makros"