Einschränkung des Dropdown-Menü?

Hallo Thorben,
erstelle eine Hilfstabelle mit:
=EINDEUTIG(JAHR(A3:A10))
Claus

Hallo Thorben,
dann versuche es mal mit:
=EINDEUTIG(FILTER(JAHR(Tabelle1[Datum]);Tabelle1[Datum]>0;""))
Wenn du z.B. in H1 "Jahre" schreibst und die Formel in H2 eingibst, kannst du für diese Hilfstabelle einen Namen vergeben.
Vergebe den Namen "Jahre" und schreibe bei "Bezieht sich auf":
=BEREICH.VERSCHIEBEN(Tabelle1!$H$1;1;;ANZAHL(Tabelle1!$H:$H))
Damit ist diese Tabelle dynamisch und passt sich immer der aktuellen Datenmenge an. Dann kannst du diesen Bereichsnamen als Quelle für die Datengültigkeit verwenden.
Claus

Hallo Claus,
danke für deine schnelle Antwort, ich habe es gleich mal getestet und es funktioniert mit Einschränkungen.
Ich habe aber folgende Änderung vorgenommen. Mit der Angabe (A3:A10) müsste ich bei jeder Erweiterung meiner Tabelle auch die Hilfstabelle anpassen.
Ich habe jetzt die Funktion so genutzt: =EINDEUTIG(Jahr(Tabellenname[Datum])) dadurch muss ich die Hilfstabelle nicht mehr Anpassen. Aber Leerzeilen werden mit 1900 angezeigt.
Dies Funktioniert aber auch nur in einer "normalen Zelle", in einer Tabelle bekomme ich einen Überlauf, Bezug oder Wert Fehler angezeigt je nach dem wie ich Formel ausprobiere. Das hat zur Folge das ich beim Erstellen des Dropdown-Menü wieder auf einen festen Zellenbereich zugreifen muss, was ich vermeiden möchte.
Man kann auch ohne die Verwendung einer Tabelle das Ergebnis der Funktion EINDEUTIG per Namen definieren und dann ansprechen, dann bekommt man das gewünschte DropDown-Menü. Nur darf wann dann in der Zielzelle das Zahlenformat nicht auf Datum ändern sondern auf Standart lassen.
Aber vielleicht hat noch jemand eine elegantere Idee/Lösung
Besten Dank
Thorben

Hallo Thorben,
schau mal in diese Demo-Mappe:
https://1drv.ms/x/s!AqMiGBK2qniTgfM2lU6pGqH45n6Ymw?e=UelaGB
Du kannst die Quelltabelle erweitern oder verkleinern, der gefilterte Bereich und die Datengültigkeit passt sich immer an.
Claus

Hallo Karl

Geht leider nicht... Ich habe den Code wie von Dir erwähnt ergänzt:

Private Sub combInteresse2_NotInList(NewData As String, Response As Integer)

If MsgBox("Do you really want to add new data to the list?", vbYesNo) = vbYes Then

Response = acDataErrAdded

Dim db As DAO.Database

Dim rs As DAO.Recordset

Set db = CurrentDb

Set rs = db.OpenRecordset("T_Interessen", dbOpenDynaset)

rs.AddNew

rs!I_Name = NewData

rs.Update

rs.Close: Set rs = Nothing

Set db = Nothing

Else

Response = acDataErrContinue

Me!combInteresse2.Undo

End If

End Sub

Vielen Dank für Deine Hilfe und herzliche Grüsse

Mike