Thema Datum  Von Nutzer Rating
Antwort
04.06.2014 09:54:17 Christoph
NotSolved
Blau Mehrere Variablen einer Function zurückgeben
 04.06.2014 13:30:08 Gast22298
*****
NotSolved
04.06.2014 13:54:34 Gast86226
NotSolved
04.06.2014 14:22:23 Gast1480
NotSolved
06.06.2014 08:36:53 Gast84744
NotSolved
06.06.2014 08:51:29 Gast36702
NotSolved

Ansicht des Beitrags:
Von:
Gast22298		 Datum:
04.06.2014 13:30:08		 Views:
2496		 Rating:
     
Antwort:
  Ja
Thema:
Mehrere Variablen einer Function zurückgeben

Argumente werden standardmäßig ByRef übergeben, d.h. einfach gesagt: Wenn du dieses innerhalb der Funktion änderst, änderst du es auch außerhalb.

Wie gesagt, alles wird ByRef, auch ohne explizite Angabe, übergeben (im Beispiel trifft das also auch auf a und b zu, man könnte diese also auch manipulieren, sind diese ByVal übergeben worden, dann wirkt sich das nicht mehr nach außen hin aus).

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
 
Public Function Test(a As Double, b As Double, ByRef c As Double) As Boolean
  On Error GoTo ENDE
  c = a / b
  Test = True
Exit Function
ENDE:
  Test = False
End Function
 
Public Sub Function_Call()
   
  Dim dblWert1 As Double
  Dim dblWert2 As Double
  Dim dblErg As Double
   
  dblWert1 = 1
  dblWert2 = 0
   
  If Test(dblWert1, dblWert2, dblErg) Then
    MsgBox "Erg = " & dblErg, Title:="OK"
  Else
    MsgBox "Fehler"
  End If
 
End Sub

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
04.06.2014 09:54:17 Christoph
NotSolved
Blau Mehrere Variablen einer Function zurückgeben
 04.06.2014 13:30:08 Gast22298
*****
NotSolved
04.06.2014 13:54:34 Gast86226
NotSolved
04.06.2014 14:22:23 Gast1480
NotSolved
06.06.2014 08:36:53 Gast84744
NotSolved
06.06.2014 08:51:29 Gast36702
NotSolved