• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Validatie met naam in VBA

  • Onderwerp starter Onderwerp starter wiki
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

wiki

Gebruiker
Lid geworden
2 okt 2007
Berichten
576
Ik wil graag met VBA in column 5 een validatie lijst toevoegen met een gedefinieerde naam "=Resources". Ik heb het geprobeerd met opnemen maar dat lukt helaas niet. Wie weet de code?

Ik heb het volgende geprobeerd maar werkt helaas niet
If IsEmpty(Cells(rij, 5)) Then
Validation.InCellDropdown = "=Resources"

gr Wim
 
Laatst bewerkt:
Wiki, Wellicht? Validation.InCellDropdown = Range("Resources")

Groet, Leo
 
Wiki,

Probeer het hier eens mee

If IsEmpty(Cells(rij, 5)) Then
Cells(rij, 5).select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Resources"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Grtz
 
Met rij lukt het niet. Op deze manier misschien ?
Code:
Sub ValiLijst()
Dim x As Integer
For x = 1 To 5
If IsEmpty(Cells(x, 5)) Then
    With Cells(x, 5).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Resources"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End If
Next
End Sub

Mvg

Rudi
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan