Optional argument As Range

[marcwagner]

ik probeer als optional argument een range mee te geven. Dit geeft, als ik het argument weglaat echter continue een fout. Ik heb dezelfde functie ook al geprobeerd met Isnull(mannen) en mannen.cells.count =0
Wat doe ik verkeerd?

Public Function geslacht(volledigenaam As String, _
 Optional Mannen As Range) As String


Dim AanhMan As Variant
Dim n As Integer

'inlezen van optionele lijst van aanheffen voor mannen 
'als de lijst leeg is, dan terugvallen op de default lijst

If IsMissing(Mannen) Then
        AanhMan = Array("DHR.", "DHR", "HR", "HR.", "HEER", "MENEER")
    Else
        AanhMan = LeesIn(Mannen)
    End If
......

End Function

 

[Wigi]

Zo vermoed ik:

Public Function geslacht(volledigenaam As String, _
 Optional Mannen As Range) As String

Dim AanhMan As Variant
Dim n As Integer

'inlezen van optionele lijst van aanheffen voor mannen 
'als de lijst leeg is, dan terugvallen op de default lijst

[B]If Not Mannen Is Nothing Then[/B]
        AanhMan = Array("DHR.", "DHR", "HR", "HR.", "HEER", "MENEER")
    Else
        AanhMan = LeesIn(Mannen)
    End If
End Function

Wigi

 

[Axel Hagg]

Dag Marc,

Een optional variabele is altijd een variant, tenzij aan de variabele een waarde is toegekent als de waarde niet wordt opgegeven. Bijvoorbeeld: Optional Variabele as Byte = 1

Gegroet,

Axel.

 

[Wigi]

Dag Marc,

Een optional variabele is altijd een variant, tenzij aan de variabele een waarde is toegekent als de waarde niet wordt opgegeven. Bijvoorbeeld: Optional Variabele as Byte = 1

Gegroet,

Axel.

Dat hoeft toch niet per sé zo te zijn, Axel. Bv.

Function tekstje(sMsg As String, Optional iGetal As Integer)
    
    tekstje = sMsg & " " & iGetal
    
End Function

Groeten

Wigi

 

[marcwagner]

Geweldig wigi, is nothing werkt. hartelijk dank!

 

[Axel Hagg]

Dag Wim,

Je hebt gelijk.

Gegroet,

Axel.

 

[Wigi]

Dag Wim,

Je hebt gelijk.

Gegroet,

Axel.

Als we maar van mekaar wat leren, daar gaat het om.

Marc, de vraag moet je nog op opgelost plaatsen aub.

 

[Axel Hagg]

Dag Wim,

Toevallig had ik vanmorgen een Optional x as Object. En dat werkte niet als het object niet zonder object.

Gegroet,

Axel.

 

[marcwagner]

Als we maar van mekaar wat leren, daar gaat het om.

Marc, de vraag moet je nog op opgelost plaatsen aub.

bij deze