Bernd,

I am assuming you are using a List type Validation. Use code like the
following:

Sub AAA()
Dim S As String
S = Mid(Range("A1").Validation.Formula1, 2)
Range("A1").Value = Range(S)(1, 1)
End Sub

Change the "A1" to your cell reference.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"bernd" wrote in message
oups.com...
Hello,

I use several cells with the same validation fields. Is it possible to
create a macro that sets the initial value of a cell with validation?

Bernd