Thema Datum  Von Nutzer Rating
Antwort
28.05.2018 19:45:44 Hady
NotSolved
28.05.2018 21:35:35 AlterDresdner
NotSolved
28.05.2018 22:33:47 Hady
NotSolved
Blau Sub aufrufen
29.05.2018 09:51:51 Gast59237
Solved

Ansicht des Beitrags:
Von:
Gast59237		 Datum:
29.05.2018 09:51:51		 Views:
480		 Rating:
     
Antwort:
 Nein
Thema:
Sub aufrufen

Array´s können nicht per byVal an Subroutinen oder Funktionen übergeben werden. ByRef funktioniert einwandfrei.

Beispiel:

Option Explicit

Public Sub main()
    Dim arr(3) As Integer
    Dim i As Integer
    
    For i = 0 To 3
        arr(i) = i * 2
    Next i
    
    Call debug_values(arr())
    Call manipulate_array(arr(), 2)
    Call debug_values(arr())
End Sub

Private Sub manipulate_array(ByRef arr() As Integer, ByVal m As Integer)
    Dim i As Integer
    For i = LBound(arr()) To UBound(arr())
        arr(i) = arr(i) * m
    Next i
End Sub

Private Sub debug_values(ByRef arr() As Integer)
    Dim i As Integer
    For i = LBound(arr()) To UBound(arr())
        Debug.Print i & ": " & arr(i)
    Next i
End Sub

Ausgabe im Direktbereich:

0: 0
1: 2
2: 4
3: 6
0: 0
1: 4
2: 8
3: 12

Gruß

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
28.05.2018 19:45:44 Hady
NotSolved
28.05.2018 21:35:35 AlterDresdner
NotSolved
28.05.2018 22:33:47 Hady
NotSolved
Blau Sub aufrufen
29.05.2018 09:51:51 Gast59237
Solved