Thema: Daten/Gültigkeit via VBA | Herbers Excel-Forum

Hallo Leut,
folgender Sachverhalt:
Möchte über Daten/Gültigkeit die Eingabewerte für die Zelle auf
-offen
-in Bearbeitung
-erledigt
reduzieren, aber ohne dass ich diese Werte in einem bestimmten Zellbereich hinterlege. Also

Sub Makro1()
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=E3:E5"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

Kann ich hier die Werte auch in Form einer Variablen (z.B.: a, b, c) anstelle des Zellbereichs
E3:E5 hinterlegen
Ich hoffe ich habe den Sachverhalt verständlich formuliert
Wenn nicht bitte Rückfragen.
Danke Euch schon mal, Grüße und schönes WE
Chrissey

Hallo
Dann trage die WErte doch einfach in das Listen-Quellenfeld der Gültigkeit ein
="offen";"in Bearbeitung";"erledigt"
Gruss Rainer

_oT

Ah Ok!!! Dankeschön... Wünsch Euch ein schönes WE
Danke

Hallo,

Sub Makro1()
Dim arrVal
arrVal = Array("offen", "in Bearbeitung", "erledigt")
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=Join(arrVal, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

Gruß
Rudi