das geht dann so nur die Dropdownliste erstellen.
Name der intelligenten Tabelle: Tanks, Spalte heißt "T"
das bekommste doch hin es auf deine Tabelle umzuschreiben.
Sub Makro1()
With Range("A1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & Range("Tanks[T]").Address
End With
End Sub
|