Datenüberprüfung - Liste - VBA
Jonathan
ich möchte via VBA in einer Zelle eine Liste einfügen, hier mein Code:
If Target.Column = 6 And Target.Row > 2 And Cells(Target.Row, Target.Column).Value "" _
Then
MsgBox "ok"
With Cells(Target.Column + 1, Target.Row).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=BA" & Cells(Target.Column, Target.Row).Value
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Das klappt auch, allerdings wird beim Auswählen der betreffenden Zelle nun nicht mehr der "typische" Pfeil angezeigt. Ich kann lediglich mit ALT+Pfeiltaste die Werte der Liste auswählen.Wo liegt der Fehler?
Danke!!
LG