Auswahlgültigkeit per vba
26.05.2017 22:37:15
Der
Brauche mal einen Spezialisten.
folgender Tabelleaufbau:
A B C D E F
1 Auswahl Möglich gesperrt
2 AA01
3 AA02
4 AA03 G
5 AA04
6 AA05 G
7 AA06
8 AA07
9 AA08
10 AA09
11 AA10
Ich möchte den Zellen unter Auswahl eine Datenüberprüfung zuweisen.
Das geht ja normalerweise über
° Daten, Datenüberprüfung
° Zulassen: Liste
° und dann den Quellbereich E2:E100 angeben.
Das ganze will ich dann noch per VBA machen
So ginge das, wenn es eine herkömmliche Liste ist.
Sub Makro11()
With Range("A2").Resize(1, 100).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$E2:$E100"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Wie mach ich das?
Krieg es aber noch nichtmal händisch hin.
Sind natürlich nicht nur die 10 Werte sondern in echt mehr, sodaß eine Schleife ungünstig wäre.
Mit arrays kenn ich mich zu wenig aus.
Danke vorab und Grüße von Uwe
Anzeige