Office: (Office 2010) Erstellen einer Dropdown Auswahl mit VBA

Hallo,
ich möchte eine Dropdown Auswahl per VBA erstellen und zwar am besten, indem ich Sie mit einem Array füttere.
Das funktioniert aber noch nicht so wie ich es mir vorstelle:

Variante 1:

Code:

myArray = Array("a,", "b,", "c,", "d,", "e")
With ws.Range("D3").Validation
    .Delete
    For x = 0 To 4
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlNotEqual, Formula1:=myArray(x)
   Next
End With

Hier funktioniert es bei ersten Durchlauf fehlerfrei, beim zweiten (x=1) kommt dann der Fehler
"Laufzeitfehler '1004':
Anwendungs- oder objekdefinierter Fehler"

Variante 2:

Code:

myArray = Array("a,", "b,", "c,", "d,", "e")
With ws.Range("D3").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlNotEqual, Formula1:=myArray

End With

Funktioniert nicht (eigentlich auch logisch).

Fehlermeldung:

"Laufzeitfehler '1004':
Anwendungs- oder objekdefinierter Fehler"

Wie wäre hier die korrekte Umsetzung?

Edit: Die Lösung ist:

Code:

With ws.Range("D3").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlNotEqual, Formula1:=Join(strArr, ",")
End With

 

Hi,

da Formula1 immer ein String ist, kannst du dir das Array sparen:

Code:

Formula1:="q, b, c, d, e, f"

Bis später,
Karin