---

Hallo,
ich hab mal eine Frage zu redim...

ich habe ein Feld:

Dim feld() As Double

und möchte das Feld in einer Schleife neu definieren:
Also

ReDim Preserve feld(i, 2)

wobei i die Laufvariable ist.
Beim ersten Schleifendurchlauf funktioniert das ganze auch, aber beim zweiten durchlauf tut sich nix mehr am Feld...
hat jemand eine Idee ?

Gruss Pelikan

[Diese Nachricht wurde von Pelikan am 14. Dez. 2004 editiert.]

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

---

Schau mal in die Hilfe zu Preserve. Das geht nur bei der letzten Dimension eines Feldes, also wenn es sinngemäß hiesse
redim preserve feld(2, 3, i).
feld(2, i, 3) geht nicht, genausowenig wie feld(i, 2), alles klar? ;-)

Gruss Nancy

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

---

Danke für die Antwort,
ist halt etwas ärgerlich... ich muss Punkte einlesen weis aber noch nicht genau wieviele das werden.
dann werd ich das Feld mal anders herum aufbauen...

Gruss Pelikan

PS: Ausszug aus der Hilfe
Anmerkung  Wenn Sie das Schlüsselwort Preserve mit einem dynamischen Datenfeld verwenden, können Sie nur die obere Grenze der letzten Dimension, aber nicht die Anzahl der Dimensionen ändern.

hab nicht weit genug gescrollt 

[Diese Nachricht wurde von Pelikan am 14. Dez. 2004 editiert.]

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

---

wenn du Punkte sammelst, würde ich das eher so machen

Private Type Punkt
    x As Integer
    y As Integer
    z As Integer
End Type

Sub test()

    Dim p1 As Punkt
    Dim Punkte() As Punkt
   
   
    For i = 1 To 15
   
        p1.x = i
        p1.y = i
        p1.z = i
       
        ReDim Preserve Punkte(i)
        Punkte(i) = p1
   
    Next

End Sub

natürlich statt meiner For Next schleife, hast du halt die schleife über deine Punkte (nur zum Testen)

------------------
WWW.FFZELL.AT.TC

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

---

Punkte.jpg

ansprechen kannst du dann deine Punkte mit z.B.:

Punkte(4).x
Punkte(4).y
Punkte(4).z

siehe ANhang

------------------
WWW.FFZELL.AT.TC

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

---

Danke für die Antwort !! das mit dem eigenen Typ ist denke ich die beste Lösung...
Hätte ich ja auch selber drauf kommen können 

10U's for you !

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

---

fehler.jpg

Hm das mit den eigenen Datentypen klappt...
Aber das Problem ist das ich ein Feld mit Punkten zrückgeben möchte...

Also die aufrufende Prozedure soll als Rückgabewert eine Feld vom Typ Punkt bekommen... Das klappt aber nicht 

Fehler siehe Anhang.

Danke für jeden Hinweis...

Gruss Pelikan

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

---

Du definierst den Typ als private, daher kannst du ihn nur in diesem Modul verwenden. Ändere ihn in public und du hast das Problem behoben.

------------------
Roland

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