Statt einer Dropdown-Liste ist es einfacher in der Gültigkeitsprüfung "Ganze Zahl" auszuwählen. Einstellung: Daten zwischen Minimum 2 und Maximum 5 Fertig.
Wir sehen uns! ... Detlef
Meine Beiträge können Ironie oder Sarkasmus enthalten.
Kannst du mir bitte sagen wie kann ich den VBA umbauen so dass ich die Liste in einer bestimmte Zelle einfügen kann (z.B. A10)? Und wie kann ich immer dein Sub RPP rufen wenn sich den zellen Stand min und max ändert? Weil min und max sind Variablen :)
:18: Na, dann nehme ich (resp. die InputBoxes) Dich mal bei der Hand. Enthält keine Fehlerbehandlung, für die richtigen Eintragungen bist Du verantwortlich. :21:
Sub RPP()
With Application.InputBox("Markiere mit der Maus den Bereich für die Datenüberprüfung!", _
Type:=8).Validation
.Delete
.Add xlValidateList, Formula1:=MinMax( _
Application.InputBox("Minimum:", Type:=1), _
Application.InputBox("Maximum:", Type:=1))
EndWithEndSubFunction MinMax(lgMin AsLong, lgMax AsLong) AsStringDim cnt AsLongFor cnt = lgMin To lgMax
MinMax = MinMax & cnt & ","Next
MinMax = Left(MinMax, Len(MinMax) - 1)
EndFunction
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Ich frage mal vorsichtig an ob ich es richtig verstanden habe was du willst.
Du willst einen Min-Wert festlegen, einen Max-Wert und aufgrund dieser beiden Werte über Datenüberprüfung-Gültigkeit-Liste ein Dropdown das Zahlen fortlaufend zwischen dem Min und dem Max anzeigt?
Wenn das so ist, gibt es eine Zelle in der der Min Wert steht? eine andere Zelle in der der Max Wert steht? Gibt es eine Untergrenze für das Min und eine Obergrenze für das Max? oder soll das Ganze dynamisch sein?
Die Antworten sind wichtig, bevor man in Gültigkeit-Liste eine Formel hineinschreibt.