Gültigket / Einträge im Drop-down Feld programmier
30.07.2003 16:00:38
Holger
ich möchte in das Drop-down Feld einer Zelle Werte aus einer Zeile von einem zweiten Tabellenblatt angezeigt bekommen. In der Zeile steht in jeder zweiten Zelle ein Wert. Mein Versuch sieht so aus:
Sub eintrag()
Dim vendor as Variant
vendor = Array("", "", "", "", "", "")
j = 1
For i = 4 To 20 Step 2
If Cells(FirstRow, i) = "" Then
i = i - 2
GoTo 20
Else
vendor(j) = Cells(FirstRow, i)
j = j + 1
End If
Next i
20
Application.Worksheets("Electronics").Activate
'ActiveSheet.Unprotect
Cells(Auswahlzeile, 4).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=vendor
End With
End Sub
Leider bekomme ich den Fehler 'Laufzeitfehler 1004' für die Zeile .Add Type..... angezeigt.
Wie muss ich die Programmierung vornehmen?
Freundliche Grüße
Holger
Anzeige