Function aanroepen

[verluc]

Heb niet zoveel kennis van "FUNCTION"
Wat ik zou wensen is een mijn macro een functie aanroepen, die een berekening inhoud die veelvuldig moet gebeuren.
Het betreft hier de volgende functie : BV_BDL

Function BV_BDL(BS As Integer, Echtg As Integer, Kind As Integer, Loon As Double) As Double

Kan iemand mij een zetje geven ?
Bedankt.

 

[Wigi]

Sub Uitvoeren()
   MsgBox BV_BDL(1, 2, 3, 1500)
End Sub

Function BV_BDL(BS As Integer, Echtg As Integer, Kind As Integer, Loon As Double) As Double
   'jouw functie
End Function

 

[krolik]

Niet vergeten om nog de volgende regel op te nemen : BV_BDL = berekening (berekening is de uitkomst), waarmee de functie de uitkomst teruggeeft

Sub Uitvoeren()
MsgBox BV_BDL(1, 2, 3, 1500)
End Sub

Function BV_BDL(BS As Integer, Echtg As Integer, Kind As Integer, Loon As Double) As Double
'jouw functie
BV_BDL = berekening
End Function

 

[verluc]

Wigi,

Wat betekenen de cijfers ((1, 2, 3, 1500) ?

Deze uitvoering geeft als resultaat 0

De basis om deze berekening (functie) uit te voeren is het bedrag, vermeld in cell L24
Bedankt

 

[Warme bakkertje]

Die cijfers zijn de argumenten die doorgegeven worden aan de functie om de berekening uit te kunnen voeren dus BS=1, Echtg=2, Kind=3, loon=1500

 

[krolik]

Dan moet je even opgeven wat de berekening moet zijn.

 

[Wigi]

Wigi,

Wat betekenen de cijfers ((1, 2, 3, 1500) ?

Deze uitvoering geeft als resultaat 0

Dat is goed, dat de functie een waarde terug geeft in de MsgBox.

Als je je nu je eigen functie nog snapt, komt het wel goed.

Wigi

 

[verluc]

Hi,

Heb de Sub uitvoeren() als volgt gewijzigd om aan te passen met mijn bestand:

Sub Uitvoeren()

MsgBox BV_BDL("D12", "H12", "H16", "L24")

End Sub

doch krijg de melding,: typen komen niet met elkaar overeen !

Enig idee wat ik moet wijzigen/aanpassen ?
Met dank.

 

[krolik]

Die quotes ("") moeten weg.

 

[verluc]

Na het verwijderen van de quotes, krijg ik volgende foutmelding :

Compileerfout : ByRef-argumenttypen komen niet overeen

Ook hier een oplossing voor ?

 

[Warme bakkertje]

Sub Uitvoeren()

MsgBox BV_BDL([D12], [H12], [H16], [L24])

End Sub

 

[verluc]

Warme Bakkertje, zeer bedankt.
Macro werkt thans als een speer !!!
Sluit derhalve dit onderwerp.