Datum eingeben, definiertes Jahr ergänzen

[STOPWIEN]

Liebe Leute,

ich benötige bitte Hilfe für eine Tabelle, an der mehrere Personen zu unterschiedlichen Zeiten immer wieder arbeiten.

Folgende Problemstellung: Man soll in einer Spalte eines Tabellenblattes jeweils ein Datum eingeben, welches immer nur einem bestimmten Monat und einem bestimmten Jahr enstspricht.

Beispiel: im Tabellenblatt Jänner 2020 soll bei einer Eingabe von 1.1. automatisch der Eintrag "Montag 1.Jänner 2021"erscheinen. Um Fehler bei der Eintragung durch mehrere Personen zu unterschiedlichen Zeiten zu vermeiden soll die Eingabe beschränkt werden bzw. das Jahr automatisch ergänzt werden. (Also auf keinen Fall darf bei einer Eingabe von 1.1. das Jahr 2020 ergänzt werden.) 

Wie macht man das am besten??? 

Vielen lieben Dank im Voraus! 
Christina

[shift-del]

Beispiel: im Tabellenblatt Jänner 2020 soll bei einer Eingabe von 1.1. automatisch der Eintrag "Montag 1.Jänner 2021"erscheinen.

Auf die Begründung bin ich gespannt.

[schauan]

Hallöchen,

Wie macht man das am besten???

Wir kennen Deine Anwender nicht Aber in 37 Tagen sollte das kein Problem sein.
Spaß beiseite, ich glaube, ohne Makro wird das nix.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Wenn die Eingabe nicht A1:A5 betrifft oder mehr als eine Spalte, dann Makro verlassen
If Intersect(Target, Range("A1:A5")) Is Nothing Or Target.Columns.Count > 1 Then Exit Sub
'Wenn ein Datum drin steht, dann
If IsDate(Target) Then
  'Wenn das Jahr kleiner 2021 ist, dann in 2021 aendern
  If Year(Target) < 2021 Then Target = DateSerial(2021, Month(Target), Day(Target))
'Ende Wenn ein Datum drin steht, dann
End If
End Sub

Das Makro hat noch ein paar Schwächen aber wäre das denn überhaupt ein Weg?

Auf die Begründung bin ich gespannt.

Vermutlich tun doch einige für nächstes Jahr was planen, trotz Corona

[shift-del]

Vermutlich tun doch einige für nächstes Jahr was planen, trotz Corona

Dir ist aber aufgefallen dass das Blatt 2020 mit Kalenderdaten für 2021 gefüllt werden soll?

[LCohen]

Falls er sich nicht vertan hat, könnte die Eingabe für den jährlichen Folgetermin sein.

[RPP63]

Moin!
Mal für in 37 Tagen:
Die Eingabe von 1.1. ist ausgesprochen schlecht, weil dann der Text "1.1." in der Tabelle steht.
Sehr viel besser ist 1.1
oder 1-1
oder 1/1
Das richtige Format erstellt man vorher, wobei der 1.1.21 ein Freitag ist …
Schließlich erkennt Excel dies als gültiges Datum des aktuellen Jahres.
(dieses Datum bleibt auch 2022 der 01.01.21)

Gruß Ralf

[schauan]

Hallöchen,

Dir ist aber aufgefallen dass das Blatt 2020 mit Kalenderdaten für 2021 gefüllt werden soll?

Ich hab bei mir noch 'ne Datei mit *2014* weil die Kollegen sonst jedes Jahr die Links ändern müssten :15: