Gültigkeits mit Makro
30.11.2008 13:59:18
Hans
Hab folgenden Gültigkeits-Code aufgenohmen:
ActiveCell.Offset(0, -1).Range("j1:j1").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$J$21:$M$21"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Info"
.ErrorTitle = "Fehler"
.InputMessage = _
"In diesem Feld sind nur folgende Werte erlaubt:" & Chr(10) & "klein" & Chr(10) & "mittel" & Chr(10) & "groß"
.ErrorMessage = _
"In diesem Feld sind nur folgende Werte erlaubt:" & Chr(10) & "klein" & Chr(10) & "mittel" & Chr(10) & "groß"
.ShowInput = True
.ShowError = True
End With
Wie kann ich die Werte: "klein"; "mittel"; "groß" fest in diesem Makro hinterlegen, sodas ich nicht auf eine Liste (Formula1:="=$J$21:$M$21") zugreifen muß?