Delphine01
Gebruiker
- Lid geworden
- 4 mei 2016
- Berichten
- 10
Beste,
Het lukt om een gegevensvalidatie in te stellen via vba. Maar bij het invoeren van gegevens krijg ik toch een foutmelding, ook al is het een correcte invoer. Als ik dan in Excel gewoon het schermpje van "Gegevensvalidatie" eens open en terug sluit, zonder iets te wijzigen, dan lukt het wel. Maar als ik dan opnieuw probeer bij een volgende cel, dan stelt het probleem zich opnieuw.
Is dit een bug of kan dit verholpen worden?
Dit is de gebruikte code:
En dit is een voorbeeldbestandje in bijlage.
Bekijk bijlage gegevensvalidatie.xlsm
Het lukt om een gegevensvalidatie in te stellen via vba. Maar bij het invoeren van gegevens krijg ik toch een foutmelding, ook al is het een correcte invoer. Als ik dan in Excel gewoon het schermpje van "Gegevensvalidatie" eens open en terug sluit, zonder iets te wijzigen, dan lukt het wel. Maar als ik dan opnieuw probeer bij een volgende cel, dan stelt het probleem zich opnieuw.
Is dit een bug of kan dit verholpen worden?
Dit is de gebruikte code:
Code:
Sub Gegevensvalidatie()
'Enkel de waarde "V" of "X" toelaten in het raster
Dim rngRaster As Range
Set rngRaster = Range("B2:H13")
rngRaster.Name = "'" & Blad1.Name & "'" & "!" & _
"rngRaster"
rngRaster.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="v;V;x;X"
.IgnoreBlank = True
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = "Ongeldige invoer"
.InputMessage = ""
.ErrorMessage = "Enkel de waarden ""V"" en ""X"" zijn toegestaan."
.ShowInput = True
.ShowError = True
End With
End Sub
En dit is een voorbeeldbestandje in bijlage.
Bekijk bijlage gegevensvalidatie.xlsm