Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Kalenderwoche - welche Fnkt stimmt denn nun?

Forumthread: VBA Kalenderwoche - welche Fnkt stimmt denn nun?

VBA Kalenderwoche - welche Fnkt stimmt denn nun?
Christian
Hi Leute,
1: um die Kalenderwoche in VBA zu bestimmen habe ich bislang verwendet:

Function udfCW(datDate As Date) As Long
Dim datTmp As Date
datTmp = DateSerial(Year(datDate + (8 - Weekday(datDate)) Mod 7 - 3), 1, 1)
udfCW = ((datDate - datTmp - 3 + (Weekday(datTmp) + 1) Mod 7)) \ 7 + 1
End Function
Aus der Erinnerung ist das die VBA-Funktion, die auch sämtliche Sonderfälle erschlägt.
Ich habe aber eben festgestellt, dass diese Funktion bei Übergabe eines Zeitstempels mit Uhrzeit am Sonntagmittag um 12:00Uhr auf die nächste KW umschaltet. Nach DIN beginnt die KW aber am Montag um 00:00 Uhr.
Bsp: 25.09.2011 ist ein Sonntag:
- 25.09.2011 11:59:59 ergibt KW38
- 25.09.2011 12:00:00 ergibt KW39 - ist falsch, denn die KW39 beginnt erst am 26.09.11 um 00:00 Uhr.
Klar, denn Fehler kann man umgehen, indem man der Funktion das Datum als "Ganzzahl" übergibt, bzw. mit "datDate = Int(datDate)" in Ganzzahl umwandelt.
2: Eine andere Variante z.Bsp. von Ramses aus http://www.online-excel.de/excel/singsel_vba.php?f=48: 

Function DIN_KW(DasDatum As Date) As Byte
Dim KW As Date
KW = 4 + DasDatum - Weekday(DasDatum, 2)
DIN_KW = (KW - DateSerial(Year(KW), 1, -6)) \ 7
End Function
Die stimmt für den 25.09.2011 auch mit Uhrzeiten, aber stimmt die auch für alle Datumsangaben und Sonderfälle?
Welche stimmt den nun?
Vielen Dank vorab
Grüße
Christian
Anzeige
AW: VBA Kalenderwoche - welche Fnkt stimmt denn nun?
24.09.2011 09:29:34
Hajo_Zi
Hallo Christian
Bei Ramses wurde ich davon ausgehen das die für alle Daten geht. Ab Version 2010 würde ich in der Tabelle den Schalter 21 benutzen.

AW: VBA Kalenderwoche - welche Fnkt stimmt denn nun?
24.09.2011 11:33:08
Christian
hallo Hajo,
hab's eben mal für ca. 3 Mio Tage (ohne Uhrzeiten) durchlaufen lassen und verglichen.
Beide Funktionen liefern das gleiche Ergebnis. Insofern werde ich zukünftig den Code von Ramses verwenden.
Gruß
Christian
Anzeige
AW: VBA Kalenderwoche - welche Fnkt stimmt denn nun?
24.09.2011 10:29:20
Luschi
Hallo Christian,
habe mal die udfCW-Funktion ein bischen auseinanergemommen. dabei kommt
heraus, daß der Funktionsterm
datDate - datTmp - 3 + (Weekday(datTmp) + 1) Mod 7 folgende Zwischenwerte
berechnet:
bei 25.09.2011 11:59:59 --> 265.499988425923
bei 25.09.2011 12:00:00 --> 265.5
Die nachfolgende Rechenoperation ergibt bei

265.499988425923 \ 7  --> 37
265.5 \ 7                      --> 38

Und dagenau liegt der Hase im Pfeffer. Der Divisionsoperator rundet und zwar so, wie es in der _ Excel-2010 Vba-Hilfe steht:

Vor der Division werden die numerischen Ausdrücke in Ausdrücke der Typen Byte, Integer oder Long gerundet.
Gru0 von Luschi
aus klein-Paris
PS: so sollte die Funktion klappen:

Function udfCW(datDate As Date) As Long
Dim datTmp As Date
datTmp = DateSerial(Year(datDate + (8 - Weekday(datDate)) Mod 7 - 3), 1, 1)
udfCW = (Fix(datDate - datTmp - 3 + (Weekday(datTmp) + 1) Mod 7) \ 7) + 1
End Function

Anzeige
AW: VBA Kalenderwoche - welche Fnkt stimmt denn nun?
24.09.2011 11:48:45
Christian
Hi Luschi,
Danke für Hilfe!
siehe auch meine Antwort an Hajo. Die Funktion von Ramses kann allerdings Datumsangaben vor" 03.01.101" nicht verarbeiten, aber Datumsangaben vor 1976 sind bei DIN-KW eh Makulatur.
viele Grüße
Christian
AW: VBA Kalenderwoche - welche Fnkt stimmt denn nun?
24.09.2011 11:59:42
Hajo_Zi
Hallo Christian,
Excel kann erst Daten ab 1.1.1900 verarbeiten bzw. mit ein weng Aufwand. Siehe Excelformeln.de
Gruß Hajo
Anzeige
schön, aber der Datentyp "Date" in VBA ...
24.09.2011 12:05:12
Christian
... kann ein Datum im Bereich vom 01. Januar 100 bis zum 31. Dezember 9999 speichern, Hajo.
Tabelle interessiert mich hier nicht.
Grruß
Christian
Im Prinzip ist das alles ja richtig, aber es...
24.09.2011 18:15:53
Luc:-?
…gibt ein Wiederholungsintervall, mit dem man theoretisch jedes Datum vom Urknall bis zum Kollaps darstellen könnte (auch in der Tabelle), falls dabei die Schaltsekunden vernachlässigt wdn können.
Gruß + schöWE, Luc :-?
Anzeige
;

Forumthreads zu verwandten Themen

Datum aus Tag, Jahr, KW auslesen
Stephan

Gibt es eine Möglichkeit das Datum auszulesen aus:
Mo = Montag
Jahr=2008
KW=1
Besten Dank
Stephan
16.08.2008 22:23:00
Thread-ID: 1002369
7 Beiträge
Anzeige
Datum richtig ausgeben in VBA
Stefan

Guten Morgen,
ich habe ein kleines Problem.
Der folgende Befehl .Cells(iCntRows, 28) = Left(.Cells(iCntRows, 8), 10) liefert das Datum zurück, allerdings nicht so, dass ich damit als Datum weiterarbeiten können. Excel denkt, es sei ein textformatiertes Feld.
Wie kann ich daraus ein...
19.10.2011 08:51:55
Thread-ID: 1234448
4 Beiträge
Datum und Uhrzeit ausgeben in Text-Datei per VBA
Ingo Siemon
Hallo
Ich möchte gerne mit VBA das aktuelle Datum und die aktuelle Uhrzeit ausgeben.
Es soll in eine Textdatei ausgegeben werden.
Immer wenn das Makro gestartet wird, soll das aktuelle Datum und die aktuelle Uhrzeit in die Text-Datei geschrieben werden.
Dabei möchte ich ein bestimmt...
02.08.2014 16:01:40
Thread-ID: 1373750
3 Beiträge
Anzeige
Datum aus Textbox als KW an Funktion übergeben
Juli

Hallo liebe Forumsgemeinde,
wenn ich in eine Textbox (Userform) ein Datum eingebe. Kann ich aus diesem Datum die Kalenderwoche bestimmen und diese an eine Funktion übergeben?
Und kann auch das Jahr an diese Funktion übergeben werden?
Wenn ich den 1.02.2015 eingebe, soll die Kalend...
15.07.2015 16:19:22
Thread-ID: 1436533
3 Beiträge
VBA: Tag aus Datum eines Zelleninhalts
Manfred

Hallo Excelfreunde,
kann mir bitte einer Hilfestellung geben.
Ich benötige den richtigen VBA Befehl um aus der Zelle "A2" den Tag aus dem gesamten Eintrag heraus zu bekommen. In "A2" steht bspw.
"Generated: 2015-Jul-17".
Ich möchte nun nur die Zahl 17 als Ergebnis in eine Variab...
07.08.2015 10:10:32
Thread-ID: 1440955
13 Beiträge
Prüfung Datum:Uhrzeit aus Textbox per VBA
Gunnard

Hallo zusammen,
ich habe bereits eine umfangreiche Suche nach meiner Lösung hinter mir, leider ohne Erfolg.
Folgendes Problem habe ich:
ich möchte einen zuvor eingegebenen Zeitpunkt (Datum und Uhrzeit) aus dem VBA-Textfeld: Me.ZeitpunktStart mit dem folgenden Format "TT.MM.JJJJ hh:m...
23.03.2016 20:55:21
Thread-ID: 1483943
8 Beiträge
Anzeige
VBA Zeilen Ausblenden Datum heute +
Sandra

Hallo zusammen,
ich brauch nach langer Zeit mal wieder Eure Hilfe.
In der Spalte K steht ein Datum.
* Wenn dieses Datum älter ist als Heute + 5 Tage , dann soll die ganze Zeile hellgrün eingefärbt werden.
* Wenn dieses Datum älter ist als Heute + 7 Tage , dann soll die ganze...
31.03.2016 16:23:07
Thread-ID: 1485115
13 Beiträge
KW aus Datum berechnen und umformatieren
juli-time

Hallo,
ich habe in einer Spalte Datum stehen, in der Standardform: 07.04.2016
Daneben möchte ich eine Spalte in der daraufbasierend folgendes asugebgen wird: 14/2016
Excel soll also aus dem Datum die KW berechnen und diese dann mit dem Jahr zusammenfügen.
Geht das in einer Forme...
07.04.2016 09:37:29
Thread-ID: 1486471
10 Beiträge
Anzeige
Datum aus 3 zellen mit vba neu schreiben
Moritz

Hallo zusammen,
ich habe folgendes Problem.
Ich habe eine Tabelle mit über 16.000 Zeilen und in jeder dieser Zeile ist das Datum in 3 Spalten dargestellt (A = Tag; B = Monat, C=Jahr ).
nun suche ich bestimmte Zeilen per vba aus der Tabelle raus und schreibe sie in ein neues Tabellen...
22.06.2016 10:09:42
Thread-ID: 1500265
4 Beiträge
Datum auswerten in VBA
ray

Hallo,
ich steh mal wieder auf dem Schlauch...
Ich habe ein TextBox auf ein frm. Die Fülle ich mit dem Datum von heute (bzw. wann auch immer die frm aufgerufen wird).
Z. B. 09.11.2017
Jetzt bekomme ich folgendes nicht hingefummelt.
Wenn Textbox7 als Datum größer als 01.10...
09.11.2017 15:56:52
Thread-ID: 1590563
3 Beiträge
VBA Zelle aus bereich soll Start-Datum erzeugen
Jan

Ich möchte mit einem Klick in den Kalender,das Datum abgreifen und ein Startdatum erzeugen.
04.07.2018 17:36:38
Thread-ID: 1632160
7 Beiträge
Datum aus Angabe einer KW
Markus

Hallo, wie bekomme ich denn den ersten Wochentag als Datum bei Angabe einer KW als heraus.Schön wenn mir jemand helfen könnte. Gutes neues noch.MfgMarkus

02.01.2003 11:36:47
Thread-ID: 197946
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA-Funktionen zur Ermittlung der Kalenderwoche

Schritt-für-Schritt-Anleitung

Um die Kalenderwoche in Excel VBA zu ermitteln, kannst Du die folgenden Schritte befolgen:

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Modul erstellen: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" > Einfügen > Modul.

  3. Funktion einfügen: Kopiere eine der folgenden Funktionen in das Modul:

    Function udfCW(datDate As Date) As Long
   Dim datTmp As Date
   datTmp = DateSerial(Year(datDate + (8 - Weekday(datDate)) Mod 7 - 3), 1, 1)
   udfCW = (Fix(datDate - datTmp - 3 + (Weekday(datTmp) + 1) Mod 7) \ 7) + 1
End Function

    oder

    Function DIN_KW(DasDatum As Date) As Byte
   Dim KW As Date
   KW = 4 + DasDatum - Weekday(DasDatum, 2)
   DIN_KW = (KW - DateSerial(Year(KW), 1, -6)) \ 7
End Function

  4. Funktion verwenden: Du kannst die Funktion in einer Zelle verwenden, indem Du =udfCW(A1) oder =DIN_KW(A1) eingibst, wobei A1 das Datum enthält.

Häufige Fehler und Lösungen

  • Problem: Die Funktion gibt falsche Kalenderwochen zurück, wenn ein Zeitstempel am Sonntag übergeben wird.

    • Lösung: Übergebe das Datum als Ganzzahl oder verwende datDate = Int(datDate) in Deiner Funktion, um die Uhrzeit zu entfernen.

  • Problem: Die Funktion unterstützt keine Daten vor dem 03.01.1900.

    • Lösung: Beachte, dass Excel nur Daten ab dem 01.01.1900 verarbeiten kann. Für historische Daten sind andere Ansätze erforderlich.

Alternative Methoden

Falls Du nicht mit VBA arbeiten möchtest, kannst Du die folgende Excel-Formel verwenden, um die Kalenderwoche zu ermitteln:

=WEEKNUM(A1; 2)

Hierbei ist A1 die Zelle, die das Datum enthält. Der zweite Parameter 2 gibt an, dass die Woche am Montag beginnt, was der DIN-Norm entspricht.

Praktische Beispiele

  1. Kalenderwoche für ein bestimmtes Datum:

    • Wenn Du das Datum 25.09.2011 in Zelle A1 hast, gib in eine andere Zelle ein: 
      =udfCW(A1)
    • Dies gibt Dir die korrekte Kalenderwoche zurück.

  2. Verwendung der DIN-KW Funktion:

    • Für das gleiche Datum kannst Du auch: 
      =DIN_KW(A1)

Tipps für Profis

  • Achte darauf, dass die udfCW Funktion bei Zeitstempeln eine Rundung vornimmt. Es ist ratsam, die Zeit zu entfernen, bevor Du das Datum übergibst.
  • Verwende die Funktion WEEKNUM, wenn Du eine schnelle Lösung ohne VBA benötigst. Diese ist in Excel ab Version 2010 verfügbar.
  • Nutze die Funktionen in Kombination mit bedingten Formatierungen, um Kalenderwochen visuell hervorzuheben.

FAQ: Häufige Fragen

1. Wie kann ich die aktuelle Kalenderwoche ermitteln?
Du kannst die aktuelle Kalenderwoche mit der Funktion =udfCW(HEUTE()) oder =DIN_KW(HEUTE()) ermitteln.

2. Welche Funktion ist besser, udfCW oder DIN_KW?
Beide Funktionen liefern ähnliche Ergebnisse, jedoch kann DIN_KW in einigen Fällen genauer sein, insbesondere bei der Berücksichtigung von Sonderfällen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige