Anzeige
Archiv - Navigation
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Gültigkeitsliste dynamisch anfragen

Gültigkeitsliste dynamisch anfragen
20.06.2016 19:25:50
Lupo
Hallo Forum,
ich möchte ein Pulldownmenu über ein Makro anlegen.
Die dazugehörige Gültigkeitsliste ist im Bereich A2:A22 angelegt. Allerdings möchte ich die länge der Liste dynamisch halten, da sie im laufe der Zeit länger wird.
Leider weiss ich nicht wie ich die Abfrage der Spalte A gestalte.
Folgende Code habe ich schon:

Sub Menu()
' Pulldown für Bereich wird angelegt
Range("B6").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Stammdaten!$A$2:$A$22"  ' Dieser Bereich soll automatisch  _
angepasst werden
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
'.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
Application.SendKeys ("%{down}") ' öffnet das Pulldownmenu bei Erstellung
End With
End Sub
Hat jemand eine Idee?
Danke schon mal im voraus,
Lupo

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gültigkeitsliste dynamisch anfragen
20.06.2016 20:34:40
Matthias
Hallo Lupo! HIer mal auf die schnelle aber ungetestet. Dein Bereich wird jetzt in Abhängigkeit des letzten Eintrages in Spalte A festgelegt. Habe den Bereich dafür aus der Zuweisung der Gültigkeit rausgenommen. Könnte aber genaus auch an der alten Stelle stehen. Wenn er aber oben steht, hat man noch die Möglichkeit auf gewissen Sachen zu reagieren (bspw. es steht nix drin etc.). Probiere es mal. Schönen Abend noch
Sub Menu()
' Pulldown für Bereich wird angelegt
Range("B6").Select
bereich = "=Stammdaten!$A$2:$A$" & Worksheets("Stammdaten"). _
Cells(Rows.Count, 1).End(xlUp).Row
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=bereich ' Dieser Bereich soll automatisch _
angepasst werden
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
'.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
Application.SendKeys ("%{down}") ' öffnet das Pulldownmenu bei Erstellung
End With
End Sub

Anzeige
AW: Gültigkeitsliste dynamisch anfragen
20.06.2016 20:49:10
Lupo
Hallo Matthias,
danke für die Hilfe es funktioniert!
Schöne Grüße,
Lupo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige