Bitte um erneute Hilfe ergänzend zuZellenprüfung
23.11.2016 07:26:15
Stefan
Vielen Dank für dein Beispiel. Ich wollte auf deine Nachricht antworten.
Interessanter Weise geht dies nur aus der Benachrichtigungs-Email auf die ich gerade keinen Zugriff habe.
Matthias und bitte auch jeder andere, Ich bitte um eine Unterstützung.
Dein Beispiel habe Ich verwendet.
Der Code, den ich gleich anhänge, läuft aber nicht.
1.) Das SUB Benutzerkurz(application.Username) füllt strbenutzerKName mit dem Nachnamen des Users um ihn mit dem Wert in der Celle zu vergleichen---Klappt
2.) In intschaltjahr steht 365 da das Jahr waagerecht aufgezogen ist. 3. Weekday muss unter 6 bleiben, da Urlaub an einem Wochenende nicht genommen werden kann.
Vielen Dank schon einmal für eure Hilfe.
Sub Urlaub()
Call GV
Call BenutzerKurz(Application.UserName)
intSchaltjahr = IstSchaltjahr(Year(StartDatum))
MsgBox ActiveCell.Count
If ActiveCell.Row > 7 And ActiveCell.Row