Kalenderwoche in Tabelle

[RiPolar]

Hallo,
ich habe einen vertikalen Monatskalender angelegt, in dem Arbeitszeiten erfasst erden sollen. 
Nun möchte ich neben der Spalte mit den Tagen jeweils neben dem Montag auch noch die Angabe der Kalenderwoche. 
Wie kann ich das erreichen? 
Danke für jede Hilfe.
Gruß,
Axel

[LCohen]

C4: =(REST(A4;7)=2)*KALENDERWOCHE(A4;21) mit benDefFmt "00";;

[Klaus-Dieter]

Hallo,

versuche es mal damit:

Code:

Sub kalenderwoche()
    Dim a As Integer, dat As Date
    For r = 4 To 32
        dat = Cells(r, 1)
        a = Int((dat - DateSerial(Year(dat), 1, 1) + _
            ((Weekday(DateSerial(Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1
        If a = 0 Then
            a = DateSerial(Year(dat) - 1, 12, 31)
        ElseIf a = 53 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 <= 3 Then
            a = 1
        End If
        If Format(Cells(r, 1), "dddd") = "Montag" Then Cells(r, 3) = "KW " & a
    Next r
End Sub

Habe das auf deine Datei angepasst.

[marose67]

Hallo,

oder so ... viele Wege führen nach Rom ...



Februar

	A	B	C	D
1	2020		Monat  02
2	Februar
3			KW
4	01	Sa
5	02	So
6	03	Mo	KW 6	?? Formel ?

Formeln der Tabelle

Zelle Formel A2 =B4 A4 =DATUM(A1;C1;1) B4 =A4 C4 =WENN(WOCHENTAG(B4;2)=1;"KW "&KALENDERWOCHE(A4;21);"") A5 =WENNFEHLER(WENN(MONAT(A4+1)=MONAT(A$4);A4+1;““);““) B5 =A5 C5 =WENN(WOCHENTAG(B5;2)=1;"KW "&KALENDERWOCHE(A5;21);"") A6 =WENNFEHLER(WENN(MONAT(A5+1)=MONAT(A$4);A5+1;““);““) B6 =A6 C6 =WENN(WOCHENTAG(B6;2)=1;"KW "&KALENDERWOCHE(A6;21);"")

Bedingte Formatierungen der Tabelle

Zelle Nr.: / Bedingung Format A4 1. / Formel ist =WOCHENTAG(A4;2)>5 Abc B4 1. / Formel ist =WOCHENTAG(A4;2)>5 Abc A5 1. / Formel ist =WOCHENTAG(A4;2)>5 Abc B5 1. / Formel ist =WOCHENTAG(A4;2)>5 Abc A6 1. / Formel ist =WOCHENTAG(A4;2)>5 Abc B6 1. / Formel ist =WOCHENTAG(A4;2)>5 Abc

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8



Gruß

Marcus

---

@LCohen,

Deine benutzerdefinierte Formatierung klappt bei mir nicht. Habe aber weiter getestet. Du hast wohl versehentlich Gänsefüßchen gesetzt.

Benurtzerdefinierte Formatierung bei mir:

00;;

Gruß
Marcus

[snb]

PHP-Code:

=IFERROR(WEEKNUM(A6;21)/(WEEKDAY(A6)=2);"") 


[LCohen]

Stimmt, versehentlich.

[RiPolar]

Hallo,
wieder ein herzlichen Dank an das hervorragende Forum!

Gruß,
Axel

[Jockel]

Hallo. Last but not least..:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	01.01.2020
2	02.01.2020
3	03.01.2020
4	04.01.2020
5	05.01.2020
6	06.01.2020	KW 2
7	07.01.2020
8	08.01.2020
9	09.01.2020
10	10.01.2020
11	11.01.2020
12	12.01.2020
13	13.01.2020	KW 3
14	14.01.2020
15	15.01.2020
16	16.01.2020
17	17.01.2020
18	18.01.2020
19	19.01.2020
20	20.01.2020	KW 4
21	21.01.2020
22	22.01.2020
23	23.01.2020
24	24.01.2020
25	25.01.2020
26	26.01.2020

Zelle	Format	Wert
B1	"KW "Standard;;	0

Zelle	Formel
B1	=(REST(A1;7)=2)*KALENDERWOCHE(A1;21)

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg