Herbers Excel-Forum - das Archiv

Aktuelle Kalenderwoche einfügen

Bild

Betrifft: Aktuelle Kalenderwoche einfügen
von: Alex H.
Geschrieben am: 02.10.2003 09:26:57
hallo!

wie kann ich in eine zelle auf "knopfdruck" die aktuelle kalenderwoche einfügen
lassen?

danke!

Bild

Betrifft: AW: Aktuelle Kalenderwoche einfügen
von: andreas e
Geschrieben am: 02.10.2003 09:32:33
hallo alex,
Range("A1").FormulaR1C1 = "=KALENDERWOCHE(TODAY())"
fügt die aktuelle KW in zelle a1 ein
Gruß
Andreas E

http://www.skripteundaufgaben.de
viele kostenlose Downloads und Links zu EXCEL und mehr
http://www.fachforen.de
eine Linksammlung zu diversen fachforen
Bild

Betrifft: AW: Aktuelle Kalenderwoche einfügen
von: Hajo_Zi
Geschrieben am: 02.10.2003 09:34:47
Hallo Andreas

die Funktion Kalenderwoche rechnet aber in einigen Jahren Falsch.

Warum muß es so eine komplizierte Formel sein Erklärung von WF
Die Funktion KALENDERWOCHE rechnet falsch oder sagen wir es gnädiger: nach amerikanischem Standard. Der 01.01.2000 z.B. ist laut DIN die 52. KW des Jahres 1999; - in den USA die erste im Jahre 2000. Das hab ich mir irgendwann mal kopiert:
Erst 1976 wurde der Wochenbeginn auf Montag festgelegt. Die erste Woche des Jahres ist definiert als die Woche, in die mindestens 4 Tage fallen. Beides = DIN 1355 (1974) Entspricht der internationalen Norm ISO 8601 (1988); -übernommen von der EU als EN 28601 (1992) und in Deutschland als DIN EN 28601 (1993) umgesetzt.
=KÜRZEN((G6-WOCHENTAG(G6;2)-DATUM(JAHR(G6+4-WOCHENTAG(G6;2));1;-10))/7)&". KW"
von WF

Function KALENDERWOCHE_DIN(Datum As Date) As Integer
'von Christoph Kremer, Aachen
'Berechnt die KW nach DIN 1355
Dim t&
t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
KALENDERWOCHE_DIN = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Bild

Betrifft: AW: Aktuelle Kalenderwoche einfügen
von: Matthias G
Geschrieben am: 02.10.2003 09:37:29
Hallo Andreas,
Vorsicht, die Funktion Kalenderwoche() arbeitet nicht nach DIN.
Jede Menge Infos dazu unter Google:
https://www.google.de/search?q=Kalenderwoche+site%3Awww.herber.de&ie=UTF-8&oe=UTF-8&hl=de&btnG=Google+Suche&meta=
Gruß,
Matthias
Bild

Betrifft: Das ist aber die KW nach Ami-Norm!
von: xXx
Geschrieben am: 02.10.2003 09:38:00
Hallo,
mit Hilfe dieser Funktion wird die KW nach DIN eingefügt.

Sub KW_einfuegen()
ActiveSheet.Range("a1")=DINKW(Date)
End Sub


Function DINKW(Datum)
Dim tmp
tmp = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
DINKW = ((Datum - tmp - 3 + (Weekday(tmp) + 1) Mod 7)) \ 7 + 1
End Function

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!
Bild

Betrifft: AW: Aktuelle Kalenderwoche einfügen
von: Hans W. Herber
Geschrieben am: 02.10.2003 09:40:51
Hallo Alex,

siehe Beispielarbeitsmappe unter:
https://www.herber.de/bbs/texte/12wk.xls

hans
 Bild
Excel-Beispiele zum Thema " Aktuelle Kalenderwoche einfügen"
Aktuellen Dateipfad aktualisieren Arbeitsmappe mit dem Namen des aktuellen Datums öffnen
Addition bis zum aktuellen Datum Aktueller Arbeitsblattname in Formel
Zur Zelle mit aktuellem Datum scrollen Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen
Bei Eintrag in Spalte A aktuelle Zeile kopieren Über Schaltfläche neues Blatt mit aktuellem Datum einfügen
Aktuelle Geburtstage beim Öffnen der Arbeitsmappe anzeigen Daten der aktuellen Zeile im Kontextmenü anzeigen