Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

For... Next

For... Next
09.03.2005 07:12:53
Ina
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 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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: For... Next
09.03.2005 07:52:43
bst
Morgen Ina,
ein EndIf fehlt. Du hast da 11 If's und 10 EndIf's.
cu, Bernd
AW: For... Next
09.03.2005 08:01:20
Ina
Ja zu einfach. Daran hab ich natürlich nicht gedacht. Dankeschön!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige