Hallo,
ich benötige wieder mal Hilfe bei einer Excel 2003 Datei.
Für einen Arbeitszeitnachweis müsste ich im Bereich A5:B29 die Werktage Montag bis Freitag in Spalte A und das zugehörige Datum in Spalte B haben, wenn ich in B4 „Januar 2001“ eintragen.
Kann mir jemand den VbA Code scheiben?
Die restlichen Daten werden manuell in die Listen eingetrage.
Es geht nur darum, dass man nicht monatlich für mehrere Abteilungen die Tage auszählen muss.
Gibt es eventuell eine andere Lösung?
Danke Rumburak
Hallo Rumburak,
Für einen Arbeitszeitnachweis müsste ich im Bereich A5:B29 die
Werktage Montag bis Freitag in Spalte A und das zugehörige
Datum in Spalte B haben, wenn ich in B4 „Januar 2001“
eintragen.
ich würde nicht Jnauar 2001 in eine zelle schreiben. Mach zwei Zellen, jeweils über Daten—Gültigkeit—Liste die Monate bzw. Jahre auswählbar.
Mit =A1&" "&B1 kannste das ja in B4 anzeigen lassen auf Wunsch.
Gibt es eventuell eine andere Lösung?
andere Lösung? also kein Vba?
Tabellenblatt: [Mappe1]!Tabelle1
│ A │ B │
───┼────────────┼────────────────┤
4 │ │ september 2001 │
───┼────────────┼────────────────┤
5 │ Montag │ 03.09.01 │
───┼────────────┼────────────────┤
6 │ Dienstag │ 04.09.01 │
───┼────────────┼────────────────┤
7 │ Mittwoch │ 05.09.01 │
───┼────────────┼────────────────┤
8 │ Donnerstag │ 06.09.01 │
───┼────────────┼────────────────┤
9 │ Freitag │ 07.09.01 │
───┼────────────┼────────────────┤
10 │ Montag │ 10.09.01 │
───┼────────────┼────────────────┤
11 │ Dienstag │ 11.09.01 │
───┼────────────┼────────────────┤
12 │ Mittwoch │ 12.09.01 │
───┼────────────┼────────────────┤
13 │ Donnerstag │ 13.09.01 │
───┼────────────┼────────────────┤
14 │ Freitag │ 14.09.01 │
───┼────────────┼────────────────┤
15 │ Montag │ 17.09.01 │
───┼────────────┼────────────────┤
16 │ Dienstag │ 18.09.01 │
───┼────────────┼────────────────┤
17 │ Mittwoch │ 19.09.01 │
───┼────────────┼────────────────┤
18 │ Donnerstag │ 20.09.01 │
───┼────────────┼────────────────┤
19 │ Freitag │ 21.09.01 │
───┼────────────┼────────────────┤
20 │ Montag │ 24.09.01 │
───┼────────────┼────────────────┤
21 │ Dienstag │ 25.09.01 │
───┼────────────┼────────────────┤
22 │ Mittwoch │ 26.09.01 │
───┼────────────┼────────────────┤
23 │ Donnerstag │ 27.09.01 │
───┼────────────┼────────────────┤
24 │ Freitag │ 28.09.01 │
───┼────────────┼────────────────┤
25 │ │ │
───┼────────────┼────────────────┤
26 │ │ │
───┼────────────┼────────────────┤
27 │ │ │
───┼────────────┼────────────────┤
28 │ │ │
───┼────────────┼────────────────┤
29 │ │ │
───┴────────────┴────────────────┘
Benutzte Formeln:
A5 : =B5
A6 : =B6
A7 : =B7
A8 : =B8
A9 : =B9
A10: =B10
A11: =B11
A12: =B12
A13: =B13
A14: =B14
A15: =B15
A16: =B16
A17: =B17
A18: =B18
A19: =B19
A20: =B20
A21: =B21
A22: =B22
A23: =B23
A24: =B24
A25: =B25
A26: =B26
A27: =B27
A28: =B28
A29: =B29
B5 : =DATWERT(1&B4)+(WOCHENTAG(DATWERT(1&B4);2)=6)\*2+(WOCHENTAG(DATWERT(1&B4);2)=7)\*1
B6 : =B5+1+(WOCHENTAG(B5;2)=5)\*2
B7 : =B6+1+(WOCHENTAG(B6;2)=5)\*2
B8 : =B7+1+(WOCHENTAG(B7;2)=5)\*2
usw. bis B23
B24: =WENN(B23="";"";WENN(MONAT(B23+1+(WOCHENTAG(B23;2)=5)\*2)\>MONAT($B$4);"";B23+1+(WOCHENTAG(B23;2)=5)\*2))
B25: =WENN(B24="";"";WENN(MONAT(B24+1+(WOCHENTAG(B24;2)=5)\*2)\>MONAT($B$4);"";B24+1+(WOCHENTAG(B24;2)=5)\*2))
B26: =WENN(B25="";"";WENN(MONAT(B25+1+(WOCHENTAG(B25;2)=5)\*2)\>MONAT($B$4);"";B25+1+(WOCHENTAG(B25;2)=5)\*2))
usw. in B
Zahlenformate der Zellen im gewählten Bereich:
A4
haben das Zahlenformat: Standard
A5:A29
haben das Zahlenformat: TTTT
B4
haben das Zahlenformat: MMM JJ
B5:B29
haben das Zahlenformat: TT.MM.JJ
Tabellendarstellung erreicht mit dem Code in FAQ:2363
Gruß
Reinhard
Hi,
wenn Du eine kleine Formel möchtest? Ja gibt es:
Angenommen Dein Startdatum steht in D1 und unter dieser Zelle sollen die weiteren Wochentage stehen.
Dann füge in D2 folgende Formel ein:
=D1+WAHL(WOCHENTAG(D1;2);1;1;1;1;3;2;1)
die Formel beliebig weit nach unten ziehen.
Die Formel zeigt fortlaufend alle Datümer an, die auf die Wochentage Mo bis Freitag fallen. Soll der Samstag dazu, ändere einfach die 3 in der Funktion Wahl in eine 1. Die betreffenden Zellen nach Wunsch, z. B. benutzerdefiniert mit TTT, TT.MM.JJ formatieren.
Lieben Gruß
Marion
Jetzt noch mal ganz konkret auf die Vorgaben:
B4
Eintrag: 1.1.2001 ,
Format: Benutzerdefiniert: MMM JJJJ oder MMM JJ oder ähnlich
B5
Eintrag: =B4+WAHL(WOCHENTAG(B4;2);1;1;1;1;3;2;1),
Format: Datum
Formel aus Zelle B5 nach unten ziehen
A5
Eintrag: +B5 ,
Format: Benutzerdefiniert: TTT oder TTTT
Formel aus A5 nach unten ziehen
Marion
Danke an Reinhard und Marion
Hallo,
ich bedanke mich für die schnelle Hilfe bei Euch beiden.
Ich habe mich für Reinhards Variante entscheiden, weil sie die Monatsenden komfortabler berücksichtigt.
Rumburak