Datenüberprüfung - Gültigkeitswerte aus Array
07.04.2017 15:41:31
Franz
über Array in Tabelle schreiben und diese Range (A1:A letzte Zeile) dann in die Datenüberprüfung zu schreiben funktioniert zwar, würde mir aber diesen Umweg gerne ersparen.
Leider führt nachfolgender Testcode aber dazu, dass Dezimalzahlen mit der Join Funktion nicht richtig geteilt werden.
Sub Test()
Dim arrFarbe As Variant
Dim ListeFarben As Variant
arrFarbe = Array("15,11", "18,56", "20,33")
'ListeFarben = Join(arrFarbe, " ")
With ActiveSheet.Cells(1, 1).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:= _
Join(arrFarbe, ",")
'.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:= _
Join(arrFarbe, vbCrLf)
'.Add Type:=xlValidateList, Formula1:=Join(arrFarbe, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Was mache ich da falsch, für sämtliche Lösungsansätze wäre ich euch sehr dankbar.
LG
Franz