Wat is er fout aan onderstaand VBA.
If Me.txtPNaam.Value <> "" Then
ws.Cells(iRow, 6).Value = "Partner"
ws.Cells(iRow, 7).Value = Me.txtPNaam.Value
ws.Cells(iRow, 8).Value = Me.txtPVoornaam.Value
ws.Cells(iRow, 9).Value = Me.txtPGebDat.Value
End If
Ik wil als in txtPNaam niets is ingevuld dat in ws.Cells(iRow, 6) de tekst "Partner" wordt geplaatst