Hallo zusammen,
ich erstelle mit u.a. Code eine Auswahlliste.
Weiß jemand wie man danach auch automatisch den 1. Wert der Auswahlliste wählt?
Bei mir ist die Zelle dann nämlich leer, die Auswahlliste ist aber selektierbar.
Sheets("Auswertung").Select
Range("ai7").Select
Selection.ClearContents
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$A$2:$A$10"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With