Variablen aus Function holen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Variablen aus Function holen
von: Bonduca01
Geschrieben am: 24.08.2015 17:53:06

Hallo zusammen,
ich möchte gerne aus einer Funktion eine Variable mitnehmen.
Mit meiner
Sub 1 calle ich die Funktion und möchte dann, wenn ich wieder in Sub 1 bin mit dem in der Funktion berechneten Produkt (Zufallszahl) weiterrechnen.
Leider ist die Zufallszahl bei mir in der Sub 1 immer wieder leer.
Mein Code sieht so aus


Sub 1
...
...
Call Zufall
blabla + Zufallszahl ' und hier ist die Zufallszahl leider leer
End Sub

Function Zufall() As Variant
Zufallszahl = (0 + Rnd) * (1 - 0)
End Function

Wie funktioniert das?
Danke!

Bild

Betrifft: AW: Variablen aus Function holen
von: Hajo_Zi
Geschrieben am: 24.08.2015 17:57:47
Hallo Daniel,

Option Explicit
Dim DoZahl As Double
Sub hjz()
'...
'...
'
Zufall
MsgBox DoZahl
'blabla Zufallszahl   ' und hier ist die Zufallszahl leider leer
End Sub
Function Zufall() As Double
  DoZahl = (0 + Rnd) * (1 - 0)
End Function
eine Sub darf nicht den Namen 1 haben.


Bild

Betrifft: AW: Variablen aus Function holen
von: Nepumuk
Geschrieben am: 24.08.2015 18:22:11
Hallo,
so:

Public Sub Test()
    Dim Zufallszahl As Double
    Zufallszahl = Zufall
    MsgBox Zufallszahl
End Sub

Function Zufall() As Double
    Zufall = (0 + Rnd) * (1 - 0)
End Function

Gruß
Nepumuk

Bild

Betrifft: AW: Variablen aus Function holen
von: Bonduca
Geschrieben am: 25.08.2015 10:06:21
Ideal. Das ist ja einfach :).
Danke!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Variablen aus Function holen"