Thema Datum  Von Nutzer Rating
Antwort
Rot Function erzeugt ein Datenfeld--> Rückgabe über Functionnamen
 05.01.2012 20:49:57 joerg
NotSolved
05.01.2012 21:55:32 Heiko
NotSolved
05.01.2012 21:55:32 Heiko
NotSolved
05.01.2012 22:33:49 Gast13788
NotSolved
05.01.2012 22:40:26 joerg
NotSolved
06.01.2012 08:54:52 Heiko
*****
NotSolved
08.01.2012 21:45:41 joerg
NotSolved
09.01.2012 00:16:00 Heiko
*****
Solved
09.01.2012 20:44:15 joerg
Solved
09.01.2012 21:24:54 Heiko
NotSolved

Ansicht des Beitrags:
Von:
joerg		 Datum:
05.01.2012 20:49:57		 Views:
2781		 Rating:
     
Antwort:
  Ja
Thema:
Function erzeugt ein Datenfeld--> Rückgabe über Functionnamen

Hallo, wahrscheinlich ist es nur eine kleine Sache, aber ich komme nach langem herumprobieren nicht darauf:

Ich übergebe der Function "j" den Wert "r". Die Function erzeugt ein Datenfeld "t(i)".
Das würde ich gerne über den Functionnamen "j" zurückgeben.

siehe hierzu:

'Werte zurückgeben über Namen
For i = 0 To n
    j = t(i)
Next

Ich vermute daß anstelle von "j" irgendetwas wie "j(i)" stehen muss - aber es klappt nicht.

Es würde wahrscheinlich auch gehen, wenn die Function "j" t() "elementweise" zurückgibt. Aber ich weiß nicht wie ich das machen soll.

(hier der gesamte Code):

------------------------------------------------------------
Public n As Integer
------------------------------------------------------------
Sub test()
Dim i, r, e() As Integer

'einlesen
r = 5
n = 2
ReDim e(n)

For i = 0 To n
    e(i) = j(r)
Next

End Sub
------------------------------------------------------------
Function j(r)
Dim i, t() As Integer

ReDim t(n)

'Erzeugen von t()
For i = 0 To n
    t(i) = r * i
Next

'Werte zurückgeben über Namen
For i = 0 To n
    j = t(i)
Next

End Function
------------------------------------------------------------

Vielleicht fällt ja jemanden der Fehler auf.

Vielen Dank im Voraus!

Gruß, Jörg

 

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Function erzeugt ein Datenfeld--> Rückgabe über Functionnamen
 05.01.2012 20:49:57 joerg
NotSolved
05.01.2012 21:55:32 Heiko
NotSolved
05.01.2012 21:55:32 Heiko
NotSolved
05.01.2012 22:33:49 Gast13788
NotSolved
05.01.2012 22:40:26 joerg
NotSolved
06.01.2012 08:54:52 Heiko
*****
NotSolved
08.01.2012 21:45:41 joerg
NotSolved
09.01.2012 00:16:00 Heiko
*****
Solved
09.01.2012 20:44:15 joerg
Solved
09.01.2012 21:24:54 Heiko
NotSolved