Userform: DateValue error lege textbox

Status
Niet open voor verdere reacties.
A

ABC1

Nieuwe gebruiker
Lid geworden
9 nov 2017
Berichten
3
Goedenavond,

Ik heb heel wat rond gekeken op internet maar ik kan mijn probleem nog steeds niet oplossen.

Het is mij gelukt om een Userform te maken met verschillende textboxen die waarden wegschrijven naar een Exelsheet.
Probleem daarbij was dat de datums in "Me.Arec3.Value" in Amerikaanse datumnotatie werden weggeschreven. Dit probleem heb ik kunnen oplossen door de DateValue en Format te gebruiken.

Maar deze oplossing werkt alleen als ik een datum invoer in de textbox. Zodra ik met een lege textbox (dus zonder datum) het userform wil wegschrijven krijg ik een error. Er moet dus verplicht een datum worden ingevoerd. Hoe kan ik er voor zorgen dat ik de textbox zonder datum kan weg schrijven?

PHP: 
  .Cells(iRow, 1).Value = Me.Arec1.Value
  .Cells(iRow, 2).Value = Me.Arec2.Value
  .Cells(iRow, 3).Value = DateValue(Format(Me.Arec3.Value, "dd-mm-yyyy"))
  .Cells(iRow, 4).Value = Me.Arec4.Value
  .Cells(iRow, 5).Value = Me.Arec5.Value
  .Cells(iRow, 6).Value = Me.Arec6.Value

Ik hoop dat jullie mij kunnen helpen.
 
Als je zegt een error te krijgen vertel deze er dan ook bij.
En wat wil je weg schrijven als de textbox leeg is of niet een datum bevat?
Controleer dat dus voordat je iets weg schrijft.
 
Laatst bewerkt:
PHP: 
Fout 13 tijdens uitvoering:

Typen komen niet met elkaar overeen

Verder wil ik als ik geen datum invoer dat de cel ook niet gevuld wordt met iets. Het zelfde eigenlijk met een lege textbox.
 
Doe dat stukje dan eens zo:
Code: 
If Me.Arec3.Value <> "" And IsDate(Me.Arec3.Value) Then
    .Cells(iRow, 3).Value = DateValue(Format(Me.Arec3.Value, "dd-mm-yyyy"))
End If
 
Graag gedaan :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan