bestimmtes Datumsformat in Zelle suchen
23.08.2022 19:36:48
Wolfgang
bitte um eure Hilfe!
Ich bin von einem Sportverein und mache dort die Kundendatenbank.
Nun stehe ich schon einige Zeit vor folgendem Problem:
Ich habe in einer Zelle Daten, die mit Semikolon getrennt sind, das ist ungefähr immer dieser Dateninhalt:
;;schnuppern;;Mustermann;Jakob;ok;jakob.mustermann@hotmail.com;".0677123123123";11/2018;Kindergarten Kindercompany;So: Leopoldsdorf Kids 4-6 Jahre Sonntag 10:00-10:50 Uhr ((Son-Leopol-1-K))
Immer zwischen dem 9. und dem 10. Semikolon steht das Geburtsmonat und Geburtsjahr des Kindes und zwar im Format MM/JJJJ, damit kommt unsere Excel-Datenbank am besten zurecht.
Leider gibt es immer wieder Leute, die das leider nicht in diesem Format eingeben, daher möchte dies gerne prüfen und eine Messagebox ausgeben, wenn das Datum ein falsches Format hat.
Bedingungen für die Prüfung wären also:
1) Überprüfung der aktiven Zelle
2) zwischen dem 9. und dem 10. Semikolon müssen sich 7 Zeichen befinden
3) zuerst zwei Ziffern, dann ein /, danach vier Ziffern
4) die ersten beiden Ziffern liegen zwischen 1 und 12
5) die letzten 4 Ziffern liegen im Bereich zwischen dem aktuellen Jahr und aktuelles Jahr minus 17 (da die Kinderkurse nur bis 16 Jahre gehen und ein bisschen Reserve...).
Ich dachte mit einer Schleife mal das 9.Semikolon suchen,
dann wieder eine Schleife um die Zeichen zu zählen,
und dann die Zeichen überprüfen...
Ich dachte da irgendwie an InStr, aber leider komme ich alleine überhaupt nicht weiter...
If InStr(ActiveCell.Offset(0, 0).Text, "?")
Also eigentlich kriege ich es überhaupt nicht gebacken... naja, im Sport bin ich etwas besser als in Excel VBA...
Könnte mir da bitte jemand von den richtigen Experten helfen?
Ich danke euch schon im Voraus!
Liebe Grüße
Wolfgang