Thema Datum  Von Nutzer Rating
Antwort
29.04.2008 15:46:33 Fabian
NotSolved
Blau Aw:Array in Function übergeben
 30.04.2008 16:29:42 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
30.04.2008 16:29:42		 Views:
1455		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Array in Function übergeben
Hallo Fabian,
wenn du einer Prozedur in der Argumentenliste einen Datentyp, hier Double, vorgibst, müssen die übergebenen Werte auch dieses Typs sein: Ändere in Dim z(10) As Double.
Wenn du ein Ergebnis einer Funktion zurückgeben willst, musst du es dem Namen der Funktion zuweisen: Ändere in add = a + b + c + d + e + f + g + h + i + j.
result hast du nicht dimensioniert. Dann sollte es laufen.

Vorschlag zur Vereinfachung:
Function Add#(a#())
For i = 1 To UBound(a) 'oder To 10, wenn du UBound (s. VBA-Hilfe) noch nicht kennst
Add = Add + a(i)
Next i
End Function

Im Makro ändern in: result = Add(z()).
Gruß
Holger


Fabian schrieb am 29.04.2008 15:46:33:

Sub hallo()


Dim zeile As Integer
Dim spalte As Integer
Dim z(10) As Integer
Const startzeile As Integer = 1

spalte = 1

Sheets("Tabelle1").Select

For zeile = startzeile To 10
Cells(zeile, spalte).Select
z(zeile) = Val(ActiveCell)
Next zeile

result = Add(z(1), z(2), z(3), z(4), z(5), z(6), z(7), z(8), z(9), z(10))

End Sub


Function Add#(a#, b#, c#, d#, e#, f#, g#, h#, i#, j#)
addition = a + b + c + d + e + f + g + h + i + j
End Function




Wie kann ich die array über geben klappt nämlich nicht

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:



  • 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
29.04.2008 15:46:33 Fabian
NotSolved
Blau Aw:Array in Function übergeben
 30.04.2008 16:29:42 Holger
NotSolved