Microsoft Excel

Herbers Excel/VBA-Archiv

Gültigkeitsliste dynamisch anfragen

Betrifft: Gültigkeitsliste dynamisch anfragen von: Lupo
Geschrieben am: 20.06.2016 19:25:50

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

  

Betrifft: AW: Gültigkeitsliste dynamisch anfragen von: Matthias
Geschrieben am: 20.06.2016 20:34:40

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



  

Betrifft: AW: Gültigkeitsliste dynamisch anfragen von: Lupo
Geschrieben am: 20.06.2016 20:49:10

Hallo Matthias,

danke für die Hilfe es funktioniert!

Schöne Grüße,
Lupo


 

Beiträge aus den Excel-Beispielen zum Thema "Gültigkeitsliste dynamisch anfragen"