Guten Tag
Mit nachfolgendem Code lege ich für bestimmte Zellen eine Validation fest.
Nun möchte ich , dass nebst den drei Vorgaben "ABC", "DEF" und "GHI" vorab eine Leerzeile erscheint.
Wie muss die Codezeile
Operator:= xlBetween, Formula1:=" ,ABC, DEF, GHI"
lauten, dass ich am Anfang eine Leerzeile erhalte?
Gruss, Peter
For Each Wsh In ThisWorkbook.Sheets
If IsNumeric(Wsh.Name) And Wsh.Name "0000" Then
With Wsh.Range(Sheets("Definitionen").Range("ABC").Address)
.HorizontalAlignment = xlLeft
With .Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=" ,ABC, DEF, GHI"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End With
End If
Next