Wörter definieren

Hallo zusammen
Also ich möchte die Werte für eine einzige Auswahlliste nicht im Tabellenblatt haben und auch nicht extra ein weiteres Tabellenblatt anlegen müssen.
Die Möglichkeit, dass man die Werte für die Auswahlliste direkt unter
Daten / Gültigkeit / Liste
einträgt bringt mir auch nichts, da ich diese Auswahlliste auf verschiedenen Blättern nutze. Bei meinem Versuch nach einer Änderung über den gesetzten Haken "Änderungen auf alle Zellen mit den gleichen Einstellungen anwenden" alle Zellen, die die Auswahlliste benutzen, zu aktualisieren, habe ich gemerkt, dass das nur auf dem Tabellenblatt der Fall war, auf der ich die Änderung durchgeführt hatte.
Lange Rede kurzer Sinn, kann man eine Liste aus Werten (Wörter) irgendwie direkt als Name definiren, den man dann Blattübergreifend ansprechen kann?
Ich habe es dort versucht unter Einfügen/Namen/definieren direkt anzugeben, aber ohne Erfolg. Ich hoffe Ihr kennt eine Lösung.
Gruss Hanz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wörter definieren

13.05.2009 15:24:18

Ptonka

AW: Wörter definieren

13.05.2009 15:28:35

Ptonka

AW: Wörter definieren

14.05.2009 09:57:13

Ptonka

AW: Wörter definieren

13.05.2009 15:32:52

David

getestet?

13.05.2009 16:23:02

D.Saster

AW: getestet?

14.05.2009 08:11:17

David

Sub Gültigkeitsliste_erstellen() With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="A;B;C;D;E;F" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End Sub

Sub Gültigkeitsliste_erstellen() With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="A,B,C,D,E,F" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End Sub

Hallo,
hier noch eine kleine Ergänzung im Makro - siehe jew. Beschreibung innerhalb des Makros:
Bei Bedarf kann man das Makro auch noch über alle Tabellenblätter laufen lassen


Sub Gültigkeitsliste_erstellen()
'Zunächst alle Zellen markieren, in denen eine Gültigkeitsliste hinterlegt ist.
ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation).Select
'Hier allen Gültigkeitslisten die Werte zuweisen (hier A, B, C, D, E etc.)
'Bei Änderungen der Liste die u.a. Werte ändern (z.B. weitere Buchstaben ergänzen)
'und dieses Makro ausführen.
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="A,B,C,D,E,F,G,H,I,J,K"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread