Als Antwort auf diesen Beitrag
Hallo
Das ginge z.B. mit einer VBA Funktion
in ein Modul:
Function DVQuelle(c As Range) As String
On Error GoTo Ende
DVQuelle = c.Validation.Formula1
Exit Function
Ende:
DVQuelle = ""
End Function
Im Blatt dann so
| Arbeitsblatt mit dem Namen 'Tabelle1' | | | A | B | C | D | E | F | G | H | I | J | | 1 | | | | | | | | Liste1 | Liste2 | | | 2 | 1007 | | =$H$2:$H$12 | | | | | 1001 | 2001 | | | 3 | | | | | | | | 1002 | 2002 | | | 4 | | | | | | | | 1003 | 2003 | | | 5 | 2005 | | =$I$2:$I$8 | | | | | 1004 | 2004 | | | 6 | | | | | | | | 1005 | 2005 | | | 7 | | | | | | | | 1006 | 2006 | | | 8 | | | | | | | | 1007 | 2007 | | | 9 | | | | | | | | 1008 | | | | 10 | | | | | | | | 1009 | | | | 11 | | | | | | | | 1010 | | | | 12 | | | | | | | | 1011 | | | | 13 | | | | | | | | | | | | 14 | | | | | | | | | | | | 15 | | | | | | | | | | | | 16 | | | | | | | | | | |
|
| Zelle | Formel | | C2 | =DVQuelle(A2) |
| | Zelle | Gültigkeitstyp | Operator | Wert1 | Wert2 | | A2 | Liste | | =$H$2:$H$12 | | | A5 | Liste | | =$I$2:$I$8 | |
|
LG UweD