Ich glaube nicht, dass Sie dies mit Dropdowns zur Datenvalidierung tun können. Gibt es eine Chance, die Dropdown-Listen in ActiveX-Steuerelemente umzuwandeln?
Sogar das folgende Code-Snippet schlägt fehl:
Sub Foo() Range("C4").Select 'Assuming this is the cell containing the dropdown list Application.SendKeys "%", 1 Range("C4:C10").CopyPicture Appearance:=xlScreen, Format:=xlPicture ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("D16") End Foo
Die Dropdown-Liste wird zwar angezeigt, aber die 'CopyPicture'-Methode kopiert die darunter liegenden Zellen und nicht die angezeigte Dropdown-Liste.