Sub Makro1()
Dim rngBereich As Range
Set rngBereich = Range("A1", Range("A1").End(xlDown))
Range("A:A").Validation.Delete
With rngBereich.Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$M$1:$M$10"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Gruß Tino
Option Explicit
Sub Makro1()
Dim rngBereich As Range
Set rngBereich = Range("M1", Range("M1").End(xlDown))
With Range("A:A").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & rngBereich.Address
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Gruß Tino