VBA - Dropdown Problem | HERBERS Excel Forum

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Basti,
vorab schon mal vielen Dank das ist an sich genau das nach was ich gesucht habe.
Nur leider ist mir eben beim ausprobieren aufgefallen das ich ein Detail vergessen hatte zu erwähnen.
Und zwar ist die Spalte nicht durchgehend, d.h. ich habe zwischen den Dropdown-Listen andere Werte.
Des Weiteren sind auch ein paar Spalten weiter recht solche Listen geplant.
Kurz gesagt gibt es noch eine andere Lösung das Ziel (target) zu definieren außer mit der Eingrenzung in Spalten und Zeilen?
(Natürlich würde es mit deiner Formel funktionieren nur wäre es sehr aufwendig)
In meinem Fall wäre es am einfachsten, wenn ich einfach die Zellen angeben könnte die ich ansprechen möchte.
z.B.
Target: Range("D80:F85,M80:O85,D153:F158,M153:O158,D226:F231,M226:O231,D299:F304,M299:O304,D350:F360")
Hoffe es ist verständlich was ich meine.

Hallo
Du könntest auch einfach oben den If satz weg machen das müsste auch reichen weil wenn er in dem Target kein Bmw,vw.. findet packt er auch nix in die zelle daneben oder du machst das so irgend wie.


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Targetranges, TaItems, AudiList, BMWList, VWList
Dim r As Range
On Error Resume Next
Targetranges = "A1:A2,C1,E1" ' Hier eintragen die Ranges
Targetranges = Split((Targetranges), ",")
For Each TaItems In Targetranges
For Each r In Range(TaItems)
If Target.Address = r.Address Then
AudiList = "A1,A2,A3,A4,A5,A6,A7,A8,A9,A10"
BMWList = "C1,C2,C3,C4,C5,C6,C7,C8,C9,C10"
VWList = "B1,B2,B3,B4,B5,B6,B7,B8,B9,B10"
With Target.Offset(0, 1).Validation
.Delete
Select Case Target.Value
Case "Audi"
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=AudiList
Case "VW"
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=VWList
Case "BMW"
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=BMWList
End Select
End With
Exit Sub
End If
Next
Next
End Sub

Gruß Basti

Beliebteste Forumthreads (12 Monate)

VBA - Dropdown Problem

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Dropdown Problem

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread