Frage zu Datum

Question

Hallo Leute,

habe eine Frage. In eine Zelle (A1) soll das Jahr eingeben werden, das muss ich danach automatisch in andere Datumszellen übernehmen (dort steht dann 01.01.A1, 31.01.A1, ...).
Wie kann ich das bewerkstelligen?

LG Ricardo

Answer 1

Hallo Ricardo,


die Formel für den 1. Januar des in A1 stehenden Jahres lautet:

=DATUM(A1;1;1)

Gruß
Rainer

Answer 2

Hallo Rainer,

danke für die Antwort. Das ist auch korrekt so. Aber was ist mit dem Monatsende? Ich will dass es automatisch den 31./30./29./28.Monat.A1 erkennt.

LG Ricardo

Answer 3

Hallo Ricardo,

so richtig verstehe ich nicht, was Du erreichen willst.

Angenommen in A1 steht 2009 und in B1 steht Februar, dann ergibt diese Formel

=DATUM($A$1;MONAT(B$1&1)+1;0)

das Ergebnis 28.02.2009

Ansonsten müsstest Du mal genauer schildern, wo steht was und wo soll welches Ergebnis stehen.

Gruß
Rainer

Answer 4

Hallo Rainer,

ich will dass der Benutzer selbst 01.01. reinschreibt und die Zelle automatisch mit A1 ergänzt wird.

Bsp: Benutzer schreibt 01.01. in die Zelle, wird automatisch geändert in 01.01.A1. Es soll keine Formel in der Zelle stehen, der Benutzer soll sich nicht mit einer Datumsformel herumschlagen müssen.

Danke für die Hilfe!

LG Ricardo

Answer 5

Hallo Ricardo,

dann mach es doch einfach mit der Tastenkombination Strg+. (Punkt), dann kannst Du sogar auf den Eintrag in A1 verzichten.

Gruß
Rainer

Answer 6

Hallo,

das ist nur per Makro zu lösen. Ob der aufwand sich lohnt, musst du selbst wissen.

Gruß

Helmut

Answer 7

Danke für die Antworten.
Wie würde das mit einem Makro ausschauen?

LG Ricardo

Answer 8

Hallo Ricardo,

ein Makro könnte so aussehen, es müsste jedoch noch auf einen gewünschten Tabellenbereich beschränkt werden.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Value = CDate(Left(Target, 2) & "." & Mid(Target, 4, 2) & "." & Range("A1").Value)
Application.EnableEvents = True
End Sub

Es ändert in der Eingabezelle den Wert z.B [b]12.05.[/b] in 12.05.2009, wenn in A1 2009 steht.

Voraussetzung: Eingabe immer 6-stellig im Format "TT.MM."

Gruß
Rainer

Answer 9

Hallo Rainer,

ich habe das Makro eingefügt, da passiert aber nichts.
Muss ich noch etwas ändern?

LG Ricardo

Answer 10

Was noch fehlt: Der Bereich, auf den das angewendet werden soll ist I3:J14.

Vielen Dank!

LG Ricardo