Invulformulier geeft Fout 424 bij uitvoering

[Gooz74]

Hallo,

ik ben nogal nieuw in vba maar en ben een invulformulier aan het maken. Het is maar een simpel formulier maar toch voor mij zeer nuttig. Ik heb de broncode ergens op het internet gevonden en zo goed mogelijk voor mezelf aangepast. Als ik echter het formulier wil testen krijg ik steeds de melding: Fout 424 bij uitvoering, object vereist. Kan iemand mij uit de nood helpen?

Broncode:

Private Sub UserForm_Initialize()
    txtDatum.Value = ""
    txtUur.Value = ""
    With cboPost
        .AddItem "DABO"
        .AddItem "GUMI"
        .AddItem "PELE"
        .AddItem "RIRU"
    End With
    cboPost.Value = ""
    txtUser.Value = ""
    txtUniek.Value = ""
    txtTelecode.Value = ""
    txtSalescode.Value = ""
    txtBatch.Value = ""
    txtLokatie.Value = ""
    txtAantalRetour.Value = ""
    txtLiterRetour.Value = ""
    txtAantalSpill.Value = ""
    txtLiterSpill.Value = ""
    optEigenSchade = True
    txtDatum.SetFocus
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdClearForm_Click()
    Call UserForm_Initialize
End Sub

Private Sub cmdOK_Click()
    ActiveWorkbook.Sheets("Blad1").Activate
    Range("A4").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        activexell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = txtDatum.Value
    ActiveCell.Offset(0, 1) = txtUniek.Value
    ActiveCell.Offset(0, 2) = txtTelecode.Value
    ActiveCell.Offset(0, 3) = txtSalescode.Value
    ActiveCell.Offset(0, 4) = txtLiter.Value
    ActiveCell.Offset(0, 5) = txtBatch.Value
    If optEigenSchade = True Then
        ActiveCell.Offset(0, 10) = txtAantalRetour.Value
        ActiveCell.Offset(0, 14) = txtAantalSpill.Value
    Else
        ActiveCell.Offset(0, 12) = txtAantalRetour.Value
        ActiveCell.Offset(0, 16) = txtAantalSpill.Value
    End If
    Range("A4").Select
End Sub

 

[huijb]

Lees dit voor je een vraag plaatst e.e.a. heb ik al voor je gedaan.

 

[Gooz74]

bedankt,

probleem is echter reeds opgelost
topic mag gesloten worden

 

[huijb]

bedankt,

probleem is echter reeds opgelost
topic mag gesloten worden

Opgeloste topics worden niet gesloten. Het zou wel zo vriendelijk en hulpvol zijn als je ook even verteld hoe het opgelost is, zo hebben andere mensen er ook nog wat aan.

 

[Gooz74]

Geen probleem.
Had in de geprogrammeerde code txtLiterspill staan maar dat tekstvak bestond niet maar er bestond wel een tekstvak txtliter. Dit aangepast en alles werkte.

 

[huijb]

Goed dat het is opgelost. Nu nog even op opgelost klikken, rechtsonder en de cirkel is rond.