---

Hallo zusammen,

mein Problem liegt in der zweiten do while schleife, also die, die nach dem "else" steht.
Wenn ich die Syntax so lasse, und mein Makro in die else Anweisung geht, dann findet es kein Ende. Obwohl es eigentlich irgendwann keinen Fehler mehr gibt, wenn sich "vstart2" immer weiter erhöht.

was muss ich ändern? welche Bedingung fehlt mir?
Vielen Dank schon einmal!

Viele Grüße
________________________________________

do while  Messung1.value > 0
koord.value = vstart1
part1.UpdateObject Messung1

if Err.Number = 0 Then
  vstart1 = vstart1 + 2
else
  do while Err.Number <> 0
  vstart1=vstart1.value + 2
  part1.UpdateObject Messung1
  loop

  Exit Sub
end If     
loop           

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

---

Hallo dusches,
als was ist vstart1 definiert? Einmal sagst du vstart1 = vstart1 + 2 und einmal vstart1 = vstart1.value + 2. Das kann eigentlich garnicht funktionieren.
Ansonsten ist mir eh unklar, was du bezwecken möchstest, da du zwar evtl. den Wert vstart1 ändern würdest, dieser aber nach diesem Codeschnipsel garkeine Auswirkung hat. 

------------------
MFG
Rick Schulz
      Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

oh ok...ich geb zu da hat es mir ein bisschen was verhauen beim rüberkopieren  . hier noch mal neu:
___________________________________
dim vstart1
vstart1=0

do while  Messung1.value > 0
Punktkkord.value = vstart1
part1.UpdateObject Messung1

if Err.Number = 0 Then
  vstart1 = vstart1 + 2
else
  do while Err.Number<>0
  vstart1=vstart1 + 2
  part1.UpdateObject Messung1
  loop

  Exit Sub
end If     
loop
____________________________________
die Punktkoordinate bezieht sich auf den Punkt, der verschoben werden soll. Dieser Punkt wird auf eine Linie projiziert. hat diese Projektion keine Lösung, soll der Punkt trotzdem weiter verschoben werden. und das so lange bis die erste Projektion wieder auf die Linie trifft. Dann soll die Schleife aufhören.
Wenn die Messung aktualisiert wird, dann wird auch das Project aktualisiert. Deshalb ist hier das lokale update.

Bei mir läuft das Makro bisher aber komplett bis zum Ender der Linie( wo die Projektion natürlich auch keine Lösung hat). Allerdings hat die Projektion schon viel weiter vorne eine Lösung, nur hört das Makro da nicht auf...

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

---

Zitat:

---

Original erstellt von dusches:
___________________________________
dim vstart1
vstart1=0

do while  Messung1.value > 0
Punktkkord.value = vstart1
part1.UpdateObject Messung1

if Err.Number = 0 Then
  vstart1 = vstart1 + 2
else
  do while Err.Number<>0
   vstart1=vstart1 + 2
   part1.UpdateObject Messung1
  loop

  Exit Sub
end If     
loop
____________________________________

---

Ich sehe aber keinerlei Auswirkung von vstart1 bzw. wird error nicht zurückgesetzt.

Wenn könnte es so gehen...

Code:

---

dim vstart1
vstart1=0

do while  Messung1.value > 0
Punktkkord.value = vstart1
part1.UpdateObject Messung1

if Err.Number = 0 Then
  vstart1 = vstart1 + 2
else
  do while Err.Number<>0
  err.clear
  vstart1=vstart1 + 2 
  Punktkkord.value = vstart1
  part1.UpdateObject Messung1
  loop
  Exit Sub
end If     
loop

---

------------------
MFG
Rick Schulz
      Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

ich dachte so was hatte ich auch schon versucht...wohl nicht, weil es jetzt klappt 
danke!

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