FOUT 13 in Excel waar zit men fout ?

[bickyvp]

beste leden,

hier ben ik weer, met uiteraard een probleem waar ik blijf over kijken.

ik krijg de volgende foutmelding: Fout 13 tijdens uitvoering, type komen niet met elkaar overeen.

ik voeg hierbij de code die ik heb en het testbestandje zelf zodat het duidelijk is.

hopelijk zien jullie de oplossing wel.

bedankt alvast!

Sub Reset()

    Dim iRow As Long
    iRow = [Counta (Database!A:A)] 'Indentificeer de laatse rij
    
    With frmform
        .txtSPELER.Value = ""
        .optKHALID.Value = False
        .optAKIM.Value = False
        
        
        .cmbPOSITIE.Clear
        .cmbPOSITIE.AddItem "1"
        .cmbPOSITIE.AddItem "2"
        .cmbPOSITIE.AddItem "3"
        .cmbPOSITIE.AddItem "4"
        .cmbPOSITIE.AddItem "5"
        .cmbPOSITIE.AddItem "6"
        .cmbPOSITIE.AddItem "7"
        .cmbPOSITIE.AddItem "8"
        .cmbPOSITIE.AddItem "9"
        .cmbPOSITIE.AddItem "10"
        .cmbPOSITIE.AddItem "11"
        
        .cmbFORMAAT.Clear
        .cmbFORMAAT.AddItem "5V5"
        .cmbFORMAAT.AddItem "8V8"
        .cmbFORMAAT.AddItem "11V11"
        
        .cmbTYPE.Clear
        .cmbTYPE.AddItem "7 1/2 MIN"
        .cmbTYPE.AddItem "15 MIN"
        .cmbTYPE.AddItem "20 MIN"
        .cmbTYPE.AddItem "30 MIN"
        .cmbTYPE.AddItem "40 MIN"
        .cmbTYPE.AddItem "45 MIN"
        .cmbTYPE.AddItem "60 MIN"
        .cmbTYPE.AddItem "80 MIN"
        .cmbTYPE.AddItem "90 MIN"
        
        .lstDATABASE.ColumnCount = 8 'Aantal kolommen in de Database
        .lstDATABASE.ColumnHeads = True
        
        .lstDATABASE.ColumnWidths = "30,60,75,40,60,45,55,70,70" 'is als je de kolommen een breedte wilt geven.
        
        If iRow > 1 Then
            .lstDATABASE.RowSource = "Database!A2:H" & iRow
        Else
            .lstDATABASE.RowSource = "Database!A2:H2"
        End If
        
    End With

End Sub



Sub Submit()

    Dim sh As Worksheet
    Dim iRow As Long
    
    Set sh = ThisWorkbook.Sheets("Database")
    iRow = [Counta(Database!A:A] + 1
    
    With sh
    
        .Cells(iRow, 1) = iRow - 1
        
        .Cells(iRow, 2) = frmform.txtSPELER.Value
        .Cells(iRow, 3) = IIf(frmform.optKHALID.Value = True, "Khalid", "Akim")
        .Cells(iRow, 4) = frmform.cmbPOSITIE.Value
        .Cells(iRow, 5) = frmform.cmbFORMAAT.Value
        .Cells(iRow, 6) = frmform.cmbTYPE.Value
        .Cells(iRow, 7) = Application.UserName
        .Cells(iRow, 8) = [Text(Now(), "DD-MM-YYYY HH:MM:SS")]
    
    End With

End Sub


Sub Show_Form()

frmform.Show

End Sub

 

[zapatr]

Fout 13 wordt veroorzaakt door iRow = [Counta (Database!A:A)].
Haal de spatie weg na Counta
En in de macro 'Sub submit' gebruik je:

Set sh = ThisWorkbook.Sheets("Database")
iRow = [Counta(Database!A:A] + 1

Maak daarvan:

Set sh = ThisWorkbook.Sheets("Database")
iRow = [Counta(sh.A:A)] + 1

 

[snb]

Gebruik nooit additem om een combobox/Listbox te vullen.

Zie: https://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

 

[bickyvp]

dankje!!! zo kan ik weer verder.
toppie