het argument is niet optioneel

[Theophiel]

hallo beste forumleden,

Graag had ik wat hulp gekregen met mijn probleem.
wanneer ik onderstaande bijvoeg in mijn bestaande macro krijg ik de foutmelding "het argument is niet optioneel"

 If Application.WorksheetFunction.CountIf(Range("A:A").Me.TxB_Naam) > 0 Then
        MsgBox "naam bestaat al"
        Me.TxB_Naam.Value = ""
        Exit Sub
    End If

de volledige code is als volgt

Private Sub CmdOK_Click()

    If Not IsDate(FrmRenner.TxB_Datum.Text) Then
        MsgBox "Datumingave is geen datum!" & Chr(10) & "Probeer opnieuw"
        Exit Sub
    End If
    If FrmRenner.TxB_Naam.Value = "" Then
     MsgBox "Naam nog ingeven"
    End If
    If OptionMale.Value = False And OptionFemale.Value = False Then
     MsgBox "Geslacht nog ingeven!"
    End If
    
    If Application.WorksheetFunction.CountIf(Range("A:A").Me.TxB_Naam) > 0 Then
        MsgBox "naam bestaat al"
        Me.TxB_Naam.Value = ""
        Exit Sub
    End If
    
    Sheets("Geboortedatum").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = FrmRenner.TxB_Naam.Value
    Sheets("Geboortedatum").Range("C" & Rows.Count).End(xlUp).Offset(1).Value = FrmRenner.TxB_Datum.Value
    If OptionMale.Value = True Then Sheets("Geboortedatum").Range("B" & Rows.Count).End(xlUp).Offset(1).Value = "m"
    If OptionFemale.Value = True Then Sheets("Geboortedatum").Range("B" & Rows.Count).End(xlUp).Offset(1).Value = "f"
    
    Me.TxB_Naam.Value = ""
    Me.TxB_Datum.Value = ""
    OptionMale.Value = False
    OptionFemale.Value = False
    
    
End Sub

Alvast bedankt op voorhand!

 

[lam201]

Hi,


Ik denk dat je een punt door een komma moet vervangen

If Application.WorksheetFunction.CountIf(Range("A:A")[COLOR="#FF0000"][B],[/B][/COLOR]Me.TxB_Naam) > 0 Then

 

[Theophiel]

whooww!!!

supersnelle reactie en juist!

vanharte bedankt!

 

[lam201]

Graag gedaan.

Vergeet niet je vraag op Opgelost te zetten.
:thumb: