Wie kann ich eine liste zwischen zwei Werten erstellen?
#1
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
Top
#2
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.
Wir sehen uns!
... Detlef

Meine Beiträge können Ironie oder Sarkasmus enthalten.

Top
#3
Sorry aber ich möchte die Liste machen :)
Top
#4
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
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)
Top
#5
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
Top
#6
: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
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)
Top
#7
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
Top
#8
@Alex:
Zitat: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
Zitat:Und bei diesen Macro bekomme ich einen Syntax Fehler
Ich nicht, und nun?
Zitat:Wo soll ich die min und max eintragen?
Kein Kommentar, sonst schreibe ich noch etwas böses!

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)
Top
#9
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
Top
#10
Ist es vlt das was du suchst? siehe Anhang


Angehängte Dateien
.xlsx   Antwort.xlsx (Größe: 21,31 KB / Downloads: 7)
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste