Office: Datum als Halbjahr anzeigen

Hallo Leute,

leider finde ich nichts im Netz dazu:

Ich möchte gerne ein Datum (z.B.: A1=DATUM(2010;2;1)) in A2 als Halbjahr darstellen. Einfach in dem Format: "1. Hbj. 2010".
Habe rumprobiert mit TEXT und WENN und Zellenformatierung, aber nichts hat geklappt.
Kann das denn wirklich so kompliziert sein?
Ich baue auf eure Hilfe, denn mir fällt nichts Vernünftiges mehr ein.

Auch super (oder noch besser) wäre natürlich, könntet ihr mir einen Lösungsvorschlag hierfür machen:
Ich gebe in A1 eine "5" ein und in A2 "2010".
Und dann soll in A3 "1. Hbj. 2010", in A4 "5.KW", in A5 "01.02.2010" und in A6 "05.02.2010" stehen.
Wenn DAS möglich ist, ... bin ich nur noch begeistert!!!

Danke schon im Voraus für die Hilfe.

Gruß, Christian

 

Hallo,

das ist kein Problem

folgende Formel in A3:

=WENN(MONAT(A5)<=6;"1. Hbj. "&JAHR(A5);"2. Hbj. "&JAHR(A5))

folgende Formel in A4:

=A1& ".KW"

folgende Formel in A5:

* siehe unten =anfang_kw(A1;A2)

folgende Formel in A6 :

=A5+5


*zu Formel in A5:

gehe mit ALT+F11 in den VBA Editor erstelle unter Einfügen ein neues Modul.
In diesem neuen Modul fügst du nun folgenden Code ein:

Code:

Function anfang_kw(kw As Integer, jhr As Integer) As Double
Dim erstertag As Double

'* Bestimmung des ersten Tages von KW2
erstertag = DateSerial(jhr, 1, 1)
Do Until DatePart("ww", erstertag, 2, 2) = 2
erstertag = erstertag + 1
Loop

'* Anfangsdatum bestimmen
anfang_kw = DateAdd("ww", kw - 2, erstertag)

End Function

Das beste wäre du fügst diesen Code erste ein und schreibst dann die Formeln soweit rein.
Du solltest dann noch die Zelle A5 und A6 als Datum formatieren!!


Gruß

 

Hallo,

herzlichen Dank!!! Jetzt bin ich begeistert! Hab mir schon gedacht, dass es mit VBA lösbar ist, aber hab leider keine Ahnung davon ... :roll:
Hab nur noch in A6 auf "=A5+4" geändert, sonst perfekt!!!

Nochmal vielen Dank für die wiederholt sehr gute Hilfe!!!

Gruß, Christian