---

Hallo zusammen,

ich weiß nicht mehr weiter. Ich habe drei schleifen gebaut und vor jeder Schleife eine On error goto ... eingesetzt. Bei der ersten Schleife funktioniert das wunderbar. Nach der ersten Schleife habe ich eine On Error goto 0 eingebaut. Bei der zweiten Schleife springt er mir aber leider nicht an den gewünschten punkt. Wenn ich die erste Schleife ausklammer, dann springt er mir in der zweiten Schleife an den gewünschten Punkt.

Ich dachte immer mit der On error goto 0 anweisung löscht der alle vorherigen on Error Anweisungen. Warum hier nicht???

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sind die Schleifen geschachtelt oder hintereinander.
Poste doch mal das wesentliche des Codes.

------------------
APeters@BSS-Online.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Arne,

die Schleifen sind hintereinander. Es sind 3 Stück, hier sind 2 davon...

n = "0"

On Error GoTo endewa
nochmalwa:
If wanumvar(n) <> "" Then

    If Len(wanumvar(n)) <> "12" Then
        MsgBox "Die Wanummer(n) wurden falsch eingegeben. Bitte überprüfen.", vbCritical, "Eingabefehler!"
        GoTo endebild
    Else
        Call datenhinzu2(DataIDWert, wanumvar(n), "DataID", "WANummer", "Select * From TB_WANummern", "CAD_Katalog")
        n = n + 1
        GoTo nochmalwa
    End If

End If
endewa:
On Error GoTo 0

n = "0"

On Error GoTo endezg
nochmalzg:
If zgnumvar(n) <> "" Then

    If Len(zgnumvar(n)) <> "8" Then
        MsgBox "Die Zeichnungsnummer(n) wurden falsch eingegeben. Bitte überprüfen.", vbCritical, "Eingabefehler!"
        GoTo endebild
    Else
        Call datenhinzu2(DataIDWert, zgnumvar(n), "DataID", "Zeichnung", "Select * From TB_Zeichnungen", "CAD_Katalog")
        n = n + 1
        GoTo nochmalzg
    End If

End If
endezg:
On Error GoTo 0

Wenn ich jetzt die erste Schleife ausklammer, dann läuft die zweite wunderbar durch, ohne Probleme bis zur dritten. Da sieht es genau so aus.

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

versuch doch mal ein Err.clear mit reinzusetzen, um den alten fehler zu löschen. Weiß zar nicht genau, ob man das muß, aber versuch macht kluch.

------------------
APeters@BSS-Online.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Arne,

danke für den Tipp. Der Versuch hat leider kein positives Ergebnis gebracht.

Trozdem danke.

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Gibt es eine andere Möglichkeit, wie ich diese Variablen (Variant) abfragen kann? Es sind immer unterschiedlich viele.

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

1. Was ist n = "0" Da ist dein n ja ein String

2. Eine Schleife mit Goto ist ja nicht so schön.
3. Man macht wohl eher ein

n= 0
Do while ERR=0
...
n= n+1
Loop

------------------
APeters@BSS-Online.de

[Diese Nachricht wurde von Arne Peters am 30. Nov. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja, danke. Jetzt funktioniert es.

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP