Ich habe ein Problem mit deklarieren von Funktionen schätze ich.
Ich habe bis jetzt kaum Funktionen gebraucht und schätze habe da irgent wo ein "Private" oder so vergessen.
Kann mal bitte einer Draufschauen. Ich habe die Funktion vereinfacht aber Ergebnis ist das gleiche. TestWert ändert sich soll er aber nicht.
--------------------------------------
Sub Schaltfläche2_KlickenSieAuf()
Dim TestWert As Integer
TestWert = 20
MsgBox "TestWert vor Funktion: " & TestWert
Ergebnis = F_Test(TestWert)
MsgBox "Ergebnis: " & Ergebnis
MsgBox "TestWert nach Funktion: " & TestWert
End Sub
Private Function F_Test(Wert As Integer) As Integer
Wert = Wert * Wert
F_Test = Wert
End Function
-------------------------------------------
Die MSGBox gibt aus:
TestWert vor Funktion:20
Ergebnis:400
TestWert nach Funktion:400
Warum hat sich mein TestWert verändert? Der soll gleich bleiben, will ja mit der 20 weitere Rechnungen machen.
Gruß Windninja
|