Kalenderwoche teilen !?

Forumthread: Kalenderwoche teilen !?

09.05.2006 08:53:53

Thomas

Hallo zusammen,
gibt es eine Möglichkeit die Kalenderwoche zu teilen ?
Also ich meine z.B. im Mai den
29-30-31 daneben soll stehen 22a
daraus folgt das der
01-02-03-04 Juni 22b ist.
Sobald der Monat die Woche teilt soll dieses mit a und b gekennzeichnet werden.
Alle anderen sollten mit der normalen Kalenderwoche benannt werden.
Vielen Dank für eure Hilfe im vorraus.
Gruß
Thomas

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kalenderwoche teilen !?

09.05.2006 09:13:57

HermannZ
AW: Kalenderwoche teilen !?

09.05.2006 09:15:55

u_
Beiden vielen Dank !!

09.05.2006 09:22:43

Thomas

AW: Kalenderwoche teilen !?

09.05.2006 09:13:57

HermannZ

Hallo Thomas;
meinst du das so?
Beispiel;

	A	B
90
91	29.05.2006	22b
92

Formeln der Tabelle

B91 : =WENN(MONAT(A91)=MONAT(A91+6);KÜRZEN((A91-WOCHENTAG(A91;2)-DATUM(JAHR(A91+4-WOCHENTAG(A91;2));1;-10))/7)&"a";KÜRZEN((A91-WOCHENTAG(A91;2)-DATUM(JAHR(A91+4-WOCHENTAG(A91;2));1;-10))/7)&"b")

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
gruß hermann

AW: Kalenderwoche teilen !?

09.05.2006 09:15:55

Hallo,
in ein Modul:
Function DINKWab(Datum) ' Kalenderwoche nach DIN mit Monatsumbruch Dim tmp Dim dteMo As Date, dteSo As Date tmp = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1) DINKWab = ((Datum - tmp - 3 + (Weekday(tmp) + 1) Mod 7)) \ 7 + 1 dteMo = DateSerial(Year(Datum), 1, 7 * DINKWab - 3 - Weekday(DateSerial(Year(Datum), 0, 0), 3)) dteSo = dteMo + 6 If Month(dteMo) <> Month(dteSo) Then If Month(dteMo) = Month(Datum) Then DINKWab = DINKWab & "a" Else DINKWab = DINKWab & "b" End If End If End Function
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)

Beiden vielen Dank !!

09.05.2006 09:22:43

Thomas

Hallo vielen Dank euch beiden. Sorry die Funktion habe ich noch nicht probiert.
mache ich sogleich.
@HermannZ Die Formel ist Supi nur dreht sie es verkehrt herum.
es steht für den 29.05 bis 31.05 die 22b und es soll ja 22a sein.
hoffe ich bekomme es hin. Die anderen Wochen sollten gar keinen Buchstaben haben.
Geht aber auch damit. Ich danke dir.
Die Funktion habe ich mal eben getestet.
Super ist genau das was ich gesucht habe ..
Vielen Dank
Gruß
Thomas

Beliebteste Forumthreads (12 Monate)

Forumthread: Kalenderwoche teilen !?

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread