Office: (Office 2010) KW und Jahr aus Datum ermitteln

Hi,
ich würde gerne die KW und das Jahr nach DIN per VBA ermitteln.

Leider finde ich nur Funktionen die nur die KW ermitteln, aber nicht das Datum.
Dies ist aber gerade beim Jahreswechsel wichtig.

z. B.
01.01.2017 = KW53 2016

Kennt jemand eine Funktion dazu?

:)

 

Kalenderwoche(a1;21)
Jahr(A1)
Ich habe die DIN nicht vorliegen und kann damit nicht sehen was Du willst.

 

Dies wäre leider zu einfach.
Als Eingabe den "01.01.2017"
Die KW zu ermitteln ist klar = KW 52.
Beim Jahr wird jedoch 2017 emittelt.
Jedoch gehört die KW 52 zum Jahr 2016 und nicht zu 2017.

Das ist das Problem

 

Hallo Pfandflasche,

was erwartest Du denn, Hajo hat Deine 2 Problemchen aus der 1. Anfrage passend beantwortet. Das Du damit nicht zufrieden bist, ist doch nicht unsere Schuld; was fehlt:
- vernünftige Problembeschreibung
- mit einer passenden Demodatei

Nur das solltest Du liefern und uns erklären, warum alle Tage des Jahres 2017 noch zum Jahr 2016 zählen sollen, wenn sie auch zurletzten KW des Vorjahres gehören.
Gib Dir mehr Mühe und mache uns keine Vorwürfe.

Luschi
aus klein-Paris

 

Tabelle2

	A	B	C
20	01.01.2017	52	2016
21	01.01.2018	1	2018
22	01.01.2019	1	2019
23	01.01.2021	53	2020

verwendete Formeln
Zelle	Formel	Bereich	N/A
B20:B23	=KALENDERWOCHE(A20;21)
C20:C23	=JAHR(A20+WENN(WOCHENTAG(DATUM(JAHR(A20);1;1);2)<4;0;-1))

Zahlenformate
Zelle	Format	Wert
A20	'TT.MM.JJJJ
A21	'TT.MM.JJJJ
A22	'TT.MM.JJJJ
A23	'TT.MM.JJJJ

Zellen mit Format Standard werden nicht dargestellt

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 24.04 einschl. 64 Bit

 

\@Luschi
vielleicht ist es falsch rübergekommen.
Ich bin zufrieden mit der Antwort.
Ich wollte nur rüberbringen, dass ich dies bereits probiert habe und es leider nicht zum korrekten Ergebnis führt.*Smilie
Sorry für das Missverständnis.

Der 01.01.2017 zählt bei der KW zum Jahr 2016, da KW52 2017 nunmal erst im Dezember 2017 ist.

@Hajo_Zi
Danke für die Formel.
Mal schauen ob man dies in VBA umschreiben kann.

Falls noch jemand eine fertige Funktion in VBa hat darf er diese gerne posten.

 

Hallo

Eine Möglichkeit aber ohne VBA

Tabelle1

	A	B	C
1	01.01.2017	52	2016

Zelle	Formel
B1	=KALENDERWOCHE(A1;21)
C1	=JAHR(A1+1-B1)

Excel Tabellen im Web darstellen >>