Hallo Ihr,
kann mir jemand sagen warum ich hier die Fehlermeldung "Laufzeitfehler 1004"
bekomme.
Ich habe in Zelle A1 eine Gültigkeitsprüfung für eine Liste (Kundenamen), welche sich in A7 bis A12 befindet. In den Spalten daneben stehen dann die anderen Kundendaten. Die sollen bei der Auswahl aus dem Dropdownfeld in A1 dann in den nachfolgenden Zellen erscheinen.

mein Code:
'mit Makrorekorder aufgezeichnet
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$A$7:$A$12"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
'dann dazugeschrieben
Worksheets("Tabelle1").Cells(1, 2).Value = _
WorksheetFunction.VLookup(Worksheets("Tabelle1").Range("A1"), Worksheets("Tabelle1").Range("A7:A12"), 2, False)

Ich bedanke mich schon mal für eure Hilfe.
ILONA