könnt ihr mir helfen wie ich in der Gültigkeit sagen kann, dass mir eine Liste aus einem bestimmten waagrechten Bereich erstellt wird (beginnend mit Zelle B6), den ich ermittle?
Folgenden Code habe ich nun:
Sub letzte_Zelle_in_Zeile()
LR6 = Cells(Columns.Count, 6).End(xlUp).Column
' set Validation
Range("A10:A59").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=B6:6" & LR6
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Stop"
.InputMessage = ""
.ErrorMessage = "Please choose a number from the list!"
.ShowInput = True
.ShowError = True
End With
End Sub
Mein Problem liegt hier:
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=B6:6" & LR6
-> das funktionier so leider nicht, wie muß ich es ändern?
Gruß,
Ellen