Office: Gültigkeitsliste anpassen

Hi
Einen Screenshot vom aufgeklappten DropDown kannst du machen, wenn du das Snipping-Tool verwendest und eine Zeitverzögerung einstellst. Dann hast du noch ein paar Sekunden Zeit, um Aktionen auszuführen wie beispielsweise das DropDown ausklappen, was dann mit aufgenommen wird.



Du solltest aber auf jeden Fall deine Datei mit hochladen, denn nur am Bild sieht man nicht viel, was die Ursache sein könnte, aber das muss ich dir als langjährigem Helfer ja nicht erzählen.

 

jetzt Bild

 

Hallo Daniel,

mir ist gerade aufgefallen bei Dir steh oben 17.01.20 bei mir 19.01.2025, ändere ich das mit min. wird beim zweiten Eintrag Auto1 nicht mehr angezeigt.
Aber die Liste für c25 ist falsch.

Gruß Hajo

 

da läuft das Selection-Change-Makro nicht richtig, da stehen noch alte Datumswerte in C3:C4
das sollten die Datumswert aus der Zeile sein, die du angeklickt hast.
Das SelectionChange-Makro sollte, wenn du eine Zelle mit Dropdown anklickst, die Datumswerte aus den beiden linken Nachbarzellen in die Zellen C3:C4 übertragen

wenn das nicht funktioniert, könnte das diese Ursachen haben
- du hast die Makros nicht aktiviert
- du hast den Entwurfsmodus eingeschalten
- du hast die Datei als xlsx gespeichert und dadurch die Makros gelöscht
- es ist die Einstellung Application.EnableEvents = FALSE gesetzt (warum auch immer)
- du hast aus versehen zwei Zellen selektiert, das schaltet die Funktion aus, weil ich zur Fehlerprüfung die Abfrage If Target.countLarge = 1 eingebaut habe.
Achte darauf, dass du nur die Zelle mit dem Dropdown selektierst.

 

Hallo Daniel,

Das Change Ereignis wird 2x ausgeführt, ich habe Haltepunkt gesetzt.
Makros sind aktiviert sonst würde Change nicht ausgeführt-
Entwurfsmodus ist nicht aktiv.
Habe extra mit Code auf True gesetzt.
Ich habe nur eine Zelle gewählt.
In C25 müssten alle Autos angezeigt werden.

Gruß Hajo

 

Hallo Daniel,

keine Ahnung jetzt wird in C25 das richtige angezeigt.
Danke.
Ich hoffe es klappt jetzt auch mit den aktuellen Daten.

Gruß Hajo

 

Entscheidend ist das Selection-Change-Event, nicht das Change-Event
hast du das was verändert?
ein Change-Eventmakro gibt es in meiner Datei nicht.

das wäre das notwendige Makro im Modul des Tabellenblatts:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge = 1 Then
    If Not Intersect(Target, Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then
        Range("C3").Value = Target.Offset(0, -2).Value
        Range("C4").Value = Target.Offset(0, -1).Value
    End If
End If
End Sub

das ist jetzt so eingestellt, dass die Datumswerte übertragen werden, wenn du genau eine Zelle selektierst, die eine Datenüberprüfung enthält. Damit sollte das Makro auch ohne Änderung funktionieren, wenn die echt-Datei abweichende Zellbereiche hat und es muss auch nicht angepasst werden, wenn die Liste länger wird.

 

Hallo Daniel,

Change nicht vollständig geschrieben es war Selection.
Ich habe jetzt die Ist Tabelle kopiert und als Tabelle kopiert damit die Formeln in neue Zeile übernommen werden.
Ich komme mit der Formelanpassung nicht klar. Kannst das noch ändern?

Gruß Hajo

 

jetzt mit Datei

 

die Zellen für das Datum und die beiden Listen müssen eigenständige Zellbereiche sein und sie dürfen nicht Teil einer intelligenten Tabelle sein, sondern ganz normale Zellbereiche. Die hier verwendeten Spillformeln funktionieren nicht mit Intelligenten Tabellen.

außerdem ist deine Tabelle10 komplett unsinnig erstellt.

da muss ich ziemlich viel neu machen.
kannst du das nicht? ich habe dich eigentlich als absoluten Excelprofi aus herber in Einnerung.

 

so jetzt für dich
ich hab auch deine intelligenten Tabellen etwas überarbeitet und das Makro angepasst, damit es besser funktioniert
das Makro verwendet auch die intelligenten Tabellen und Namen.

und bitte erstmal diese Datei testen, bevor du etwas verändert.
es ist schon wichtig zu wissen, ob MEINE Datei nicht richtig funktioniert oder das, was du daraus gemacht hast.

Gruß Daniel

 

Abkürzen solltest du nur, wenn wenn es auch abgekürzt eindeutig bleibt.
da es aber auch ein Change-Event gibt, ist es so nicht mehr eindeutig.
Hajo, das müsstest du wissen.

 

Hallo Daniel,

Danke das Du die Tabelle angepasst hast.
Danke das sieht gut aus auf den ersten Blick.
Danke auch für die Formel in Spalze G
Am Freitag arbeite ich nur bis 13:00.
Ich halte mich in großen Teil an die Divise Arbeit ist Arbeit und Freizeit ist Freizeit.
Also intensivtestung am Montag.

Gruß Hajo

 

noch ne kleine Korrektur:

in der Datei "für Hajo Liste2.xlsm" müsste die Formel in K6 noch korriert werden, da fehlt der # nach dem Zellbezug
I6:

=FILTER(Tabelle1[KFZ Nr.];ZÄHLENWENN(I6#;Tabelle1[KFZ Nr.])=0;"---")​

Gruß Daniel