Wie kann ich eine liste zwischen zwei Werten erstellen?

[jovicic]

Hallo Leute :)

Kann mir jemand sagen wie kann ich eine drop-down Liste zwischen Zwei werten erstellen?

Z.B. Wenn ich einen max Wert 5 und min Wert 2 habe, soll ich eine Liste 2 3 4 5 bekommen.

Excel VBA oder eine andere Alternative?

Freue mich auf Zuschriften :)

Lg

Alex

[shift-del]

Hallo Alex

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.

[jovicic]

Sorry aber ich möchte die Liste machen :)

[RPP63]

Hi!
Dann wohl nur per VBA.
Das Makro RPP fügt in die aktive Zelle Deine Liste ein:

Sub RPP()
With ActiveCell.Validation
   .Delete
   .Add xlValidateList, Formula1:=MinMax(2, 5)
End With
End Sub

Function MinMax(lgMin As Long, lgMax As Long) As String
Dim cnt As Long
For cnt = lgMin To lgMax
   MinMax = MinMax & cnt & ","
Next
MinMax = Left(MinMax, Len(MinMax) - 1)
End Function

Gruß Ralf

[jovicic]

Hallo Ralf :D

Das ist genau was ich wollte!!!

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 :)

Lg
Alex

[RPP63]

: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))
End With
End Sub

Function MinMax(lgMin As Long, lgMax As Long) As String
Dim cnt As Long
For cnt = lgMin To lgMax
   MinMax = MinMax & cnt & ","
Next
MinMax = Left(MinMax, Len(MinMax) - 1)
End Function

Gruß Ralf

[jovicic]

Hab mich nicht richtig ausgedrückt ;)

Ich brauch eine fix Zelle ohne ein MessageBox dass ich es markieren kann.

Und bei diesen Macro bekomme ich einen Syntax Fehler

Wo soll ich die min und max eintragen? :)

Danke

Alex

[RPP63]

@Alex:

Ich brauch eine fix Zelle ohne ein MessageBox dass ich es markieren kann.

Dann frage ich mich, wozu Du ein Makro brauchst, sowas macht man dann manuell!
Im Dialog der Datenüberprüfung dann halt
Quelle: 2;3;4;5

Und bei diesen Macro bekomme ich einen Syntax Fehler

Ich nicht, und nun?

Wo soll ich die min und max eintragen?

Kein Kommentar, sonst schreibe ich noch etwas böses!

Gruß Ralf

[Palomino]

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.

Grüße

[Palomino]

Ist es vlt das was du suchst? siehe Anhang