PDA

Vollständige Version anzeigen : Validation Range


andi_bln
29.03.2012, 11:53
Hallo,

habe eine Blockeade, ich kann problemlos eine Validation an eine Zelle anhängen, allerding nur mit 7 Items, mehrr geht nicht auf die unten gezeigte weise, wie bekommt man einen vertikalen Scrollbar zustande.

Vielen Dank für jeden Tip ......

Andreas

Public Sub FUelleDropDownValidation()
Dim str$, i%
On Error Resume Next
If SafeArrayGetDim(MsgFeld) = 0 Then
ZielRange.Validation.Delete
Else
str = vbNullString
For i = 0 To UBound(MsgFeld)
str = str & MsgFeld(i) & ","
Next i
' letztes Komma loeschen
str = Mid(str, 1, Len(str) - 1)
With ZielRange.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=str
.IgnoreBlank = True
.InCellDropdown = True
.ErrorTitle = vbNullString
.ErrorMessage = vbNullString
.ShowError = True
End With
End If
End Sub