VBA Excel Validierungsliste über Variablenbereich

Question

Ich habe diesen Code versucht, eine Validierungsliste in Excel zu setzen. Ich versuche, bestimmte Zellen durch Variablen zu ersetzen, aber ich kann nicht mit festen Zellen arbeiten.

Vielen Dank.

With Selection.Validation 
    .Delete 
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
    xlBetween, Formula1:="=Range(Cells(5, 15), Cells(6, 15))" 
    .IgnoreBlank = True 
    .InCellDropdown = True 
    .InputTitle = "" 
    .ErrorTitle = "" 
    .InputMessage = "" 
    .ErrorMessage = "" 
    .ShowInput = True 
    .ShowError = True 
End With 

Answer 1

Versuchen Sie folgendes:

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
    xlBetween, Formula1:= "=" & Range(Cells(5, 15), Cells(6, 15)).Address 

oder dies:

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
    xlBetween, Formula1:= "=$O$5:$O$6"