AW: neuer Versuch ...
28.02.2013 13:12:47
JoKu
Hallo Matthias,
ich versuchs nochmal, mein Anliegen zu formulieren:
In mehreren Zellen möchte ich eine Gültigkeitsliste hinterlegen, die man dann per DropDown nutzen kann. Gültig sind dann alle Registerblätter, die in der Mappe existieren.
Hierzu wollte ich über den Namensmanager einen definierten Namen (zB. listRegister ) hinterlegen.
Diese Liste wäre dann "nur" per Makro zu aktualisieren.
Eventuell ist es nicht möglich; wie Du im letzten Satz schreibst; jedoch
Es lässt sich ein Name definieren, der direkt Werte beinhaltet; zB.
ActiveWorkbook.Names.Add Name:="listRegister", RefersToR1C1:="=14"
Ebenfalls kann man eine Gültigkeitsliste direkt mit Werten erstellen:
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="10;11;12;13"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
oder mit einem Verweis auf eine Liste:
' Quelle ist eine Liste in der Tabelle
ActiveWorkbook.Names.Add Name:="listRegister", RefersToR1C1:="=Tabelle1!R12C2:R14C2"
' Verweis auf Liste bei der Gültigkeitsprüfung
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=listRegister"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Nun will ich "nur", dass listRegister per Makro mit den Registernamen aktualisiert wird.
Ist es etwas klarer geworden?
Danke vorab
JoKu