Validation list VBA (Excel)

[Møllerodden]

Hei

Jeg holder på med el løsning som inneholder validation list.

Jeg ønske at bruker skal kunne velge bilmerke i A1, derretter vil jeg at bruker skal kunne velge den biltypen han ønsker i B1 som hører til det bilmerket som bruker valgte på A1.

Feks A1 = Ople B1 = Kadett

Jeg har startet på en slik kode, men den går ikke helt etter planen:

Noen som kan hjelpe meg med den ?

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If a1 = ("Opel") Then

Range("b1").Select

With Selection.Validation

.Delete

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

xlBetween, Formula1:="=$e$1:$e$20"

.IgnoreBlank = True

.InCellDropdown = True

.InputTitle = ""

.ErrorTitle = ""

.InputMessage = ""

.ErrorMessage = ""

.ShowInput = True

.ShowError = True

End With

End If

End Sub