VBA - Dropdown Problem
15.10.2016 23:23:47
Patrick
ich bin neu hier und habe folgendes Problem/Situation:
Ich habe in einer Spalte mehrere Dropdown-Listen (z.B. mit Inhalt: BMW, Audi, VW),
nun möchte ich das bei Auswahl einer dieser Werte, in die rechte Nachbarzelle eine
weitere Dropdown-Liste erstellt wird mit entsprechenden Werten (siehe Bild)
Ich habe bereits etwas zusammengeschrieben jedoch funktioniert es noch nicht 100%ig,
(etweder falsche Zelle, falsche Dropdowns etc.)
evtl. kann mir hier jemand helfen.
Hier mein bisheriger Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Dim Spalte As Integer
Dim Suche As String
SuchA = "Audi"
intTextSpalte = 3
For Each Zelle In Range("C3:C12")
If Zelle.Value = Suche Then
Cells(Target.Row, intTextSpalte + 1).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$F$3:$F$12"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next
End Sub