Hallo Headbucket,
Zitat:
With Range("A1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=Join(MyList, ",")
End With
Könntest du das in Delphi übersetzen ?
Eine andere Variante
http://www.office-loesung.de/ftopic318697_0_0_asc.php
Erklärung:
Der Input für das DropDown ist im "Tabelle1" R2C1 bis R4C1
Der Vergebene Namen heißt "EOL"
Code:
Zitat:
Range("A2:A4").Select
ActiveWorkbook.Names.Add Name:="EOL", RefersToR1C1:="=Tabelle1 R2C1:R4C1"
ActiveWorkbook.Names("EOL").Comment = ""
Da wäre auch eine Übersetzung in Delphi hilfreich.
Zur Info, ich arbeite mit Delphi 4 und Excel 2007.
mfg Nimmersatt