Dropdown Liste mit Maximalwert

[HoKuTeddy]

Hallo zusammen,

ich habe ein Problem aber leider finde ich dazu keine sinnvolle Lösung.
Ich möchte eine Dropdown Liste (nur Ganze Zahlen) erstellen welche einen Maximalwert hat der in der Zelle B1 steht. Dieser Wert soll aber änderbar sein und somit meine Auswahl erweitern bzw. wieder verringern.
Als beispiel möchte ich nennen, dass in Zelle B1 der Wert 10 steht die Auswahl bis 10 begrenzt ist. Wenn sich der Wert auf 12 ändert soll die Auswahlliste bis 12 möglich sein.
Ich hoffe das war verständlich erklärt und es gibt eine Lösung.

Gruß

Holger

[RPP63]

Moin!
Eine Möglichkeit ohne Dropdown (Du kannst ja eine eigene Fehlermeldung basteln):
Dateiupload bitte im Forum! So geht es: Klick mich!
src="
Dateiupload bitte im Forum! So geht es: Klick mich!
" />

Ansonsten:
Welche Art von Dropdown:

• Datenüberprüfung
  
• Formularsteuerelement
  
• ActiveX
  

Gruß Ralf

[HoKuTeddy]

Hallo Ralf,

danke für die schnelle Antwort. Ohne Dropdown ist es kein Problem, das ist mir in der Form auch bekannt, es wäre aber zu schön wenn es auch mit Dropdown gehen würde. Ich habe es über die Datenüberprüfung versucht.

[RPP63]

Dies dürfte nur mittels VBA funktionieren.
Ins Modul der Tabelle (Rechtsklick auf Tabellenreiter, Code anzeigen)
Hier für Spalte A

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cnt&
Redim tmparr(1 To Range("B1")) As String
If Target.Address <> "$B$1" Then Exit Sub
For cnt = 1 To Ubound(tmparr)
   tmparr(cnt) = cnt
Next
With Columns("A").Validation
   .Delete
   .Add xlValidateList, Formula1:=Join(tmparr, ",")
End With
End Sub

Wenn Du jetzt die Zahl in B1 änderst (die über Datenüberprüfung auf Ganzzahl zwischen 2 und Deinem Maximalwert festgelegt sein sollte), passt sich der Zellendropdown automatisch an.
Die Datei muss jetzt als .xlsm abgespeichert werden, Makros müssen zugelassen sein.

Gruß Ralf

[HoKuTeddy]

Hallo,

wieder einen vielen Dank für die schnelle Antwort. Ich werde es bei Gelegenheit ausprobieren.

Vielen Dank

Holger