Hallo,
in der neuen Zelle erscheint beim aufklappen nicht die Auswahlliste, sondern alle Kriterien in einer Zeile.
Woran liegt das?
Dim y As Double
y = Tabelle1.UsedRange.Rows.Count + 1
Range("F" & y).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Firma;Privat;Mobil;Fax;E-Mail;Web"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = "Bitte wählen Sie einen Wert aus der Liste."
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Danke UK