VBA gegevens formulier

[gast0699]

Best heren,

Ik heb een probleem met VBA basic, ik ben bezig met een gegevens formulier maar als ik het gegevensformulier uitvoer krijg ik een errormelding (geel gekleurde tekst) namelijk:

Private Sub cmdToevoegen_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Blad1")

'vindt laatst gebruikte cel, ga naar de volgende rij
iRow = ws.Cells(Rows.Count, 1) _
.End(x1Up).Offset(1, 0).Row

'controleer of er een naam is ingevuld
If Trim(Me.txtNaam.Value) = "" Then
Me.txtNaam.SetFocus
MsgBox "gelieve een naam in te voegen"
Exit Sub
End If

If Trim(Me.txtAdres.Value) = "" Then
Me.txtAdres.SetFocus
MsgBox "gelieve een adres in te voegen"
Exit Sub
End If

If Trim(Me.txtPostcode.Value) = "" Then
Me.txtAdres.SetFocus
MsgBox "gelieve een postcode in te voegen"
Exit Sub
End If

If Trim(Me.txtWoonplaats.Value) = "" Then
Me.txtAdres.SetFocus
MsgBox "gelieve een woonplaats in te voegen"
Exit Sub
End If

If Trim(Me.txtContactpersoon.Value) = "" Then
Me.txtAdres.SetFocus
MsgBox "gelieve een contactpersoon in te voegen"
Exit Sub
End If

If Trim(Me.txtAanmeldprocedure_1.Value) = "" Then
Me.txtAdres.SetFocus
MsgBox "gelieve een aanmeldprocedure in te voegen"
Exit Sub
End If

If Trim(Me.txtAanmeldprocedure_2.Value) = "" Then
Me.txtAdres.SetFocus
MsgBox "gelieve een aanmeldprocedure in te voegen"
Exit Sub
End If

'Plaatst de gegevens in de database
ws.Cells(iRow, 1).Value = Me.txtNaam.Value
ws.Cells(iRow, 2).Value = Me.txtAdres.Value
ws.Cells(iRow, 3).Value = Me.txtPostcode.Value
ws.Cells(iRow, 4).Value = Me.txtWoonplaats.Value
ws.Cells(iRow, 5).Value = Me.txtContactpersoon.Value
ws.Cells(iRow, 6).Value = Me.txtAanmeldprocedure_1.Value
ws.Cells(iRow, 7).Value = Me.txtAanmeldprocedure_2.Value

'verwijder gegevens
Me.txtNaam.Value = ""
Me.txtAdres.Value = ""
Me.txtPostcode.Value = ""
Me.txtWoonplaats.Value = ""
Me.txtContactpersoon = ""
Me.txtAanmeldprocedure_1 = ""
Me.txtAanmeldprocedure_2 = ""

Bekijk bijlage VBA aanmeldingsprocedure aanmeldingen.xlsm
End Sub

Ik heb geen idee wat het probleem verzoorzaakt en hoe ik het moet oplossen, ben geen VBA expert.

Het enigste wat ik wil is een regels met tekst invoeren in excel "via" een gegevensformulier die je moet invullen en dat je via de knop "toevoegen" de tekst toevoegt in de excel werkblad.

Ik hoor graag van jullie

Gr & fijn weekend

Jeffrey van Malssen

 

[Warme bakkertje]

Het is End(xlUp) met de l van leo, niet End(x1Up)