Ich habe eine Zelle mit einer Dropdown-Liste (mit "Datenüberprüfung").
Die Liste stammt aus einem benannten Bereich in einem anderen Arbeitsblatt.
Ich möchte, dass das Dropdown-Menü den benannten Bereich und einen weiteren vordefinierten Wert anzeigt. Also zum Beispiel, wenn der Bereich so aussieht:
1
2
3
4
Ich möchte, dass die Dropdown-Liste Folgendes anzeigt:
1
2
3
4
17 (my predefined value)
Wie kann man das erreichen?
Wenn Sie Validierungsdaten verwenden möchten, um eine Liste zu erstellen, wird die folgende Fehlermeldung angezeigt : Sie dürfen keine Referenzoperatoren (wie z. B. Vereinigungen, Schnittpunkte und Bereiche) oder Array-Konstanten für bedingte Formatierungskriterien verwenden.
Ich schlage vor, Sie versuchen, Code als Problemumgehung zu verwenden, um dieses Problem zu beheben.
Sub SetDataValidation() '
Dim WS As Worksheet
Set WS = Worksheets("Sheet1")
Dim rng As Range
'get range of named range
Set rng = WS.Range("NUMBER")
Dim ARR As Variant
ReDim ARR(1 To 1) As Variant
'add cell value from named range to an array
For i = 1 To rng.Cells.Count
ARR(UBound(ARR)) = rng.Cells(i).Value
ReDim Preserve ARR(1 To UBound(ARR) + 1) As Variant
Next i
'add your predefined value to the array
ARR(UBound(ARR)) = 17
'set validation for B1 with the combined array
With WS.Range("B1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(ARR, ",")
End With
End Sub
In meinem Beispiel habe ich den Bereich NUMBER genannt und erhalte das Ergebnis:
Ich hatte ein ähnliches Problem wie Sie. Ich hatte einen benannten Bereich Dyn_ParamList_KillDatemit einer Liste von Daten 1/1/2018, 1/2/2018, etc.... Dieser dynamische benannte Bereich wird von einem Prozess aufgefüllt und ändert sich in der Größe. Das Problem ist manchmal, dass die Liste leer ist und ein leeres Dropdown-Menü Probleme verursacht.
Deshalb habe ich für meine Lösung einen anderen benannten Bereich erstellt Range_Writeback_ModelParamDate, der immer einen Wert hat. Dann änderte ich die Datenvalidierungsliste FROM =Dyn_ParamList_KillDateTO =IF(Dyn_ParamList_KillDate<>"", Dyn_ParamList_KillDate, Range_Writeback_ModelParamDate).
Nachdem ich diesen zweiten Bereich hinzugefügt hatte, stellte ich sicher, dass er immer einen Wert hatte, und änderte die Dropdown-Formel so, dass IF verwendet und aus einem der beiden Bereiche gezogen wurde. Ich hoffe das hilft jemandem.
Die Idee für diese Lösung kam von hier: https://www.mrexcel.com/forum/excel-questions/754454-you-may-not-use-reference-operators-array-constants-data-validation.html