Via VBA formule in cel plaatsen m.b.v. Select Case

[Excelbat]

Hi All,

Ik probeer een eigen funktie te maken om een formule in een cel te plaatsen m.b.v. Select Case. Ik krijg dan als uitkomst true of false, maar ik wil dus een getal zien. Wat doe ik fout?

Function WELKFRUIT(Product)
    Select Case Product
        Case "APPEL": WELKFRUIT = IIf(Product = "APPEL", Formula = "=[@Aantal]*2", "")
        Case "PEER": WELKFRUIT = IIf(Product = "PEER", "PeerPrijs", "")
    End Select
End Function

Kan iemand mij op weg helpen?

Bekijk bijlage SelectCaseAndFormula.xlsb

Thanx/Excelbat

 

[snb]

Een UDF is bedoeld om een resultaat van een bewerking terug te geven, niet om iets in een werkboek te wijzigen.

 

[sylvester-ponte]

probeer deze eens:

Function WELKFRUIT(Product)
    Select Case Product
        Case "APPEL": WELKFRUIT = IIf(Product = "APPEL", Product(1, 2) * 2, "")
        Case "PEER": WELKFRUIT = IIf(Product = "PEER", "PeerPrijs", "")
    End Select
End Function

dit verdient zeker niet de schoonheids prijs.
vertel eens wat je wil bereiken.

 

[VenA]

Het lijkt mij niet echt de bedoeling dat je in een select case nog een keer dezelfde vraag gaat stellen. Ook is het niet handig om in een kolom in een tabel verschillende gegevens te verzamelen.

Zo lijkt het mij iets netter geschreven.

Function Welkfruit(Product, Optional Aantal)
    Select Case Product
        Case "APPEL": Welkfruit = Aantal * 2
        Case "PEER": Welkfruit = "PeerPrijs"
        Case Else: Welkfruit = ""
    End Select
End Function

 

[Excelbat]

Thanx allen voor de geboden hulp,

@SNB: Tja, ik maakte inderdaad een denkfoutje. Om met behulp van een formule (functie) een andere formule te maken, dat gaat niet werken.
@Sylvester-Ponte: ik probeer de formule 'kiezen / choose' te verwerken in een geschreven functie. Kiezen werkt nl. met 1 en 2 en ..., en ik vind 'appels' en 'peren' wat leesbaarder.
@VenA: uiteindelijk heeft deze bijdrage mij op weg geholpen. Ik heb er dit van gemaakt, en het werkt !!!

Function Welkfruit(Product, StaffelRij, ZoneKolom)
    Select Case Product
        Case "APPEL": Welkfruit = Application.WorksheetFunction.Index(Range("M16:O18"), StaffelRij, ZoneKolom)
        Case "PEER": Welkfruit = "PeerPrijs"
        Case Else: Welkfruit = ""
    End Select
End Function

Bekijk bijlage SelectCaseAndFormula.xlsb

Thanx and greetz/Excelbat