Beispiel: Übersicht Datum, WT, KW
19.10.2016 22:50:40
Jens
nach einigen Anstrengungen habe ich eine Übersicht gebastelt.
Vom Tabellenblatt wird eine Userform aufgerufen.
Hier wird nur der Tag und der Monat eingegeben und mit ENTER bestätigt.
Alles andere wird dann angezeigt.
Das Jahr kann optional geändert werden. (Braucht man ja nicht so häufig ;) )
Mir ist bewusst das die verwendeten Codes nicht die optimalsten sind.
Bin schon froh das es einigermaßen läuft ...
Leider gibts noch einige Bug's
z.B. das hier wird immer gelb
sWDay = WeekdayName(Weekday(CDate(sDate), vbMonday), , vbMonday)
Wie kann ich für den Tag vorgeben das nur Ziffern von 1 bis 31 eingegeben werden können? Ein Monat hat nun mal nicht mehr und größere Zahlen ergeben einen Fehler!Das ganze ebenso für den Monatsbereich, hier nur 1 bis 12 möglich!
(Achja, fällt mir grade noch ein; keine Buchstaben oder wirre Zeichen zulassen.)
Wenn ich das Häkchen rausnehme und wieder reinmache ist der "Schließen" Button wieder aktiv - Obwohl die beiden Felder fürs Datum noch leer sind!
Könnt Ihr bitte mal drüber schauen und mir Helfen ?
Vielen lieben Dank schon mal im Voraus
Gruß, Jens
https://www.herber.de/bbs/user/108901.xlsm