---

Hallo zusammen,

ich bin momentan an einem CAD-Makro am basteln, aber da meine Frage sich auf ein VBA-internes Problem bezieht, packe ich es in dieses Forum.
Meine Frage ist auch relativ rasch gestellt. Wie kann ich einen bestimmten Wert bzw. ein Ergebnis, dass in einer For-Next-Schleife erzeugt wird nach beenden der Schleife weiterverwenden?

Bsp.:
For n = 1 to Sel.Count
...'hier passiert irgendwas
Ergebnis1 = TestArray(0)
Ergebnis2 = TestArray(1)
Ergebnis3 = TestArray(2)
Next

Was muss ich tun um Ergebnis1 und Ergebnis2 und Ergebnis3 für n = 1, n = 2,... nach dem 'Next' weiter zu verwenden? Ich benötige also für jedes n die drei Werte/Ergebnisse

Gruß

[Diese Nachricht wurde von Alexander.Stud am 14. Jan. 2013 editiert.]

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

---

Hallo Alexander,

eigentlich ist das ziemlich simple, deswegen würde ich sofort um mehr Hintergrung bitten.

Eigentlich könntest du die Variablen direkt weiterverwenden oder eben, wenn es eine eigenständige Funktion ist, per ByRef zurück geben.

------------------
MFG
Rick Schulz

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

     >>> ÜBay - Großes CADde Ausrüstungspacket - Ende Fr 01.02.2013 um 12:05Uhr <<<

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

---

Hallo und Danke Rick,

zum Hintergrund: Ich suche in der FOR-Schleife alle Objekte gleichen Namens und "Berechne" mir zu diesen x,y,z-Werte diese packe ich dann letztendlich in ein zweidimensionales Array, wie oben angegeben.
Also es ist keine eigene Funktion. es befindet sich alles in einem Sub! Aber wie kann ich denn nach dem die Schleife alle Werte durchlaufen hat, die Variablen direkt weiterverwenden? Lasse ich mir bspw. jetzt die Variable "Ergebnis1" ausgeben, so erhalte ich doch immer nur die vom letzten Schleifendurchgang?! 

Gruß

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

---

Moin,

Zitat:

---

diese packe ich dann letztendlich in ein zweidimensionales Array

---

dann mußt du das auch tun
z.B. so:

Code:

---

dim ergebnis(sel.count,3)

For n = 0 to Sel.Count-1
...'hier passiert irgendwas
Ergebnis(n,0) = TestArray(0)
Ergebnis(n,1) = TestArray(1)
Ergebnis(n,2) = TestArray(2)
Next

---

Gruß
Peter

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

---

Hi Peter,

danke dir!
Genau das hat mir gefehlt (n,0), (n,1) und (n,2), kannte diese Schreibweise bisher nicht. Jetzt klappt's.

Gruß
Alex

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