Samstag, 17. November 2018, 08:53 UTC+1

Sie sind nicht angemeldet.

  • Anmelden
  • Registrieren

Lieber Besucher, herzlich willkommen bei: INVESTOX-Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.

Wothan

Besucher

Registrierungsdatum: 7. Januar 2015

Beiträge: 12

1

Dienstag, 1. März 2016, 12:33

Arrays in Sub oder Function übergeben.

Hallo liebe VBSler,

bin grade an einer recht einfachen Sache am verzweifeln.

Ich habe recht einfaches Sub als bsp.


Sub kopiere_vektor(ziel(), quelle(), ndim)
For i=1 To ndim
ziel(i) = quelle(i)
Next
End Sub

Wenn ich dieses ausführe bekomme ich die Meldung
DebugInternal487 ")" erwartet

Ist es möglich in vbs Arrays als parameter zu übermitteln und wenn ja woran hackt es bei mir?

Der Sub- Aufruf sieht wie folg aus.

kopiere_vektor minimum, xneu, ndim


habe bereits

kopiere_vektor minimum(), xneu(), ndim<- Skalar



probiert aber will einfach nicht, bin dieses vorgehen aus VBA gewöhnt, aber in vbs macht es nicht so ganz mit.


Muss ich alle Arrays global definieren um die Parameterübermittlung zu umgehen ?


Grüße W.T.A. :)

Wothan

Besucher

Registrierungsdatum: 7. Januar 2015

Beiträge: 12

2

Dienstag, 1. März 2016, 13:00

Fehler glaube ich gefunden.
In der Funktions-definition

Sub kopiere_vektor(ziel(), quelle(), ndim)
For i=1 To ndim
ziel(i) = quelle(i)
Next
End Sub



Müssen die klammern entfernt werden, das Array wird automatisch übermittelt




Sub kopiere_vektor(ziel, quelle, ndim)
For i=1 To ndim
ziel(i) = quelle(i)
Next
End Sub



Grüße W.T.A.