---

Hallo!

Ich habe wieder ein Anfängerproblem:

Warum geht das nicht:

Code:

---

public function test() as variant

  dim array(0 to 10) as variant
  dim x(0 to 1) as variant
  dim s as String
  dim d as Double

  s = "test"
  d = 0.5
  x(0) = s
  x(1) = d

  for i = lbound(array) to ubound(array)
    array(i) = x
  next i

  test = array

end function

sub TestFunction()

  dim array as variant
  array = test()

  ' Fehler Illegale Typzuweisung
  ' Leuchtet mir auch ein, aber wie kann ich es besser machen?
  ' array(0) ist ja normal ein Array of Variant (0 to 1)
   
  MsgBox array(0)(0)
end sub

---

Wie kann ich dieses Problem gut lösen?

lg Peter

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

---

Sorry habe noch eine Frage in diesem Zusammenhang:

Wie übergibt man ein Array an eine Funktion bzw. wie gibt man das Array an die aufrufende Funktion zurück (ohne ByRef und Variant als Hilfsmittel).

Lg

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

---

array ist der Name einer Funktion. Daher solltest du diesen NICHT als Variblennamen verwenden. Nimm z.B. arr - und schon läuft es.

Grüsse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hallo,

nein daran liegt es nicht.. funktioniert auch mit arr nicht (das war nur pseudo-code) 

lg

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

---

Verzeihung, du hast recht, es funktioniert. Ich hatte ein etwas komplizierteres beispiel, bei dem es nicht funktionierte und ich kann schwören, dass ich alles gleich gemacht hab, aber jetzt gehts  .

Kannst du mir bitte noch erklären wir ich korrekt Arrays als Returnwert bei einer Funktion angebe und wie ich Arrays an eine Funktion übergebe?

Lg

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

---

Hallo Peter,

mir ist nicht ganz klar, worauf dein Code hinauslaufen soll.

Wenn das nur eine Art 'Übung'/Exempel war, dann finde ich es unglücklich,
da man solche Konstrukte (Array im Array) eigentlich sinvoller händeln könnte,
beispielsweise mit 2-dim. Arrays.

Ansonsten funktioniert ja der Code, überflüssig wären in der Sub die Übergabe/Dimensionierung Array=test, sondern du kannst auf die Function test direkt zugreifen.

Code:

---

Public Function test() As Variant

  Dim arr(0 To 10) As Variant
  Dim x(0 To 1) As Variant
  Dim i
 
  x(0) = CBool(0)
  x(1) = CBool(1)

  For i = LBound(arr) To UBound(arr)
    arr(i) = x
  Next i

  test = arr

End Function

Sub testetest()
    Debug.Print UBound(test), UBound(test(0)), test(0)(0)
End Sub

---

Wiegesagt, man erkennt schlecht, was du eigentlich mal vorhast mit deiner Function und dem Feld.,
deswegen ist die Antwort auch etwas vage.

lg Nancy

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

---

Hallo Nancy,

danke für deine Antwort! Du hast recht, das Beispiel war wirklich unglücklich gewählt, aber ich bin davon ausgegangen, dass es nicht funktioniert und habe es deshalb gepostet, ohne es vorher zu testen, in fester Überzeugung, dass der Fehler für euch auf der Hand liegt.

Trotzdem danke, dass ihr euch die Mühe gemacht habt. Ich habe bereits eine Struktur definiert, die mein Problem befriedigend löst und benötige deshalb kein zweidimensionales Array mehr.

Vielen Dank,
Liebe Grüße Peter

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