Mein Ziel ist es, eine benutzerfreundliche schnelle Eingabe des Urlaubs in einen Jahreskalender einzufügen.
Ich habe einen Jahreskalender, bei dem zuzüglich des Datums auch noch die Urlaubstage, die ich per UF anlege, eintragen soll. Dabei soll er dem Beginn und das Ende in des jeweiligen Datums in Spalte C den Text "Urlaub" schreiben. So mein Plan.
Ich hänge seit gestern an einer Lösung von vorerst zwei Problemen.
Erstens
Ich habe in meiner Mappe 12 Monatskalender und ein Blatt Urlaub und ein Blatt Feiertage.
Im Blatt Urlaub trage ich in den Spalten A den Beginn und B das Ende des Urlaubs ein. Spalte C errechnet die Nettoarbeitstage zwischen den beiden Spalten unter Berücksichtigung der Feiertage.
Mein Grundgedanke war, weitere Einträge jeweils unter den letzten Eintrag anzufügen, den ich über frm_Urlaub eingebe.
Die Einträge sind (erstmal absichtlich) unsortiert.
Nun möchte ich beim Öffnen einer UF frm_Urlaub (im Blatt Urlaub) beim Öffnen in der ListBox lst_Urlaub jene Einträge gleich sortiert haben und am besten das Sortierte zurückschreiben.
Aber der Debugger bleibt bei
.Apply
hängen.Zweitens,
würde ich gern die Einträge in der UF mit Klick auf einen Listeneintrag bearbeiten und zeilenselektiv aktualisieren. Hier wird aber in den TextBoxen nur eine Zahl dargestellt, statt des Datums aus der ListBox.
Ich befürchte, dass die ursprünglichen Zellenformate im Blatt nicht in die ListBox übertragen wurden und nun Text sind. Oder die TextBoxen bekommen ja von Haus aus das Textformat. Nur habe ich bis hierher kein Möglichkeit gefunden, das Datumsformat auch auf die TextBoxen zu übertragen. Aber ich brauche in den TextBoxen das Datum um damit weiter zu rechnen. Dabei möchte ich schon in der UF die Nettoarbeitstage aus den beiden Textboxen ermitteln, damit der Nutzer gleich die Anzahl der Tage bei der Eingabe erkennt.
Vielleicht kann mir jemand aus der Runde einen Tipp, egal für welches Problem geben?
Ich bedanke mich schon ein mal im Voraus für eure Unterstützung.
Beispielmappe dabei
https://www.herber.de/bbs/user/149829.xlsm
Gruß
Peer