Anzeige
Archiv - Navigation
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Rückgabewert aus einer function

Rückgabewert aus einer function
30.06.2005 19:38:52
Kojak
Hallo zusammen
ich benötige ein klein wenig Hilfe.
mein Problem ist das ich aus einer funcion kein rückgabewert erhalte mit dem ich weiter arbeiten kann.
ich rufe die

Function in einer userform auf :
runden ( var_temp )
hier mein source der 

Function :
Public 

Function runden(var_temp As Double)
Dim vorkomma As Integer
vorkomma = CInt(var_temp)
If vorkomma < var_temp Then
vorkomma = vorkomma + 1
End If
End Function

jetzt möchte ich gern mit der variable vorkomma weiterrechnen.
leider weis ich nicht wie ich diesen wert wieder in meine userform bekomme

ich hoffe es kann mir einer helfen

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Rückgabewert aus einer function
30.06.2005 19:41:14
Ron Andres
Hi,
der Rückgabewert der Funktion entspricht dem Funktionsnamen.
Also: runden = vorkomma
Gruß Ron
AW: Rückgabewert aus einer function
30.06.2005 19:42:48
Hajo_Zi
Hallo Kojak,
Du weist in der Funktion runden "runden" keinen Wert zu.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: Rückgabewert aus einer function
30.06.2005 19:55:58
Kojak
Hier der Aufruf in meiner userform
var_temp = Worksheets("Berechnungen").Range("G14") / 100
runden (var_temp)

MsgBox (" Ergebnis der

Function runden")
und hier noch mal der code der function
Public 

Function runden(var_temp As Double)
Dim vorkomma As Integer
vorkomma = CInt(var_temp)
If vorkomma < var_temp Then
vorkomma = vorkomma + 1
runden = vorkomma
End If
End Function

Anzeige
AW: Rückgabewert aus einer function
30.06.2005 20:05:54
Hajo_Zi
Hallo Kojak,

Option Explicit
Sub Atart()
Dim vAR_tEMP As Double
'    vAR_tEMP = Worksheets("Berechnungen").Range("G14") / 100
vAR_tEMP = 23.1258
MsgBox "Ergebnis der Function runden " & runden(vAR_tEMP)
End Sub
Public Function runden(wert As Double)
Dim vorkomma As Integer
vorkomma = CInt(wert)
If vorkomma < wert Then
vorkomma = vorkomma + 1
End If
runden = vorkomma
End Function

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
AW: Rückgabewert aus einer function
30.06.2005 20:18:09
Kojak
supi goil
danke für die super schnelle hilfe, funktioniert 1a !!
THX
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige