Kalenderwoche berechen

Forumthread: Kalenderwoche berechen

30.07.2017 15:02:36

Frank

Hallo zusammen,
folgenden Code habe ich hier gefunden und verwende Ihn.

Function KW_DIN(Datum)
KW_DIN = DatePart("ww", Datum, vbMonday, vbFirstFourDays)
End Function

Doch ich möchte gern das die KW mit führender Null ausgegeben/gespeichert wird.
Wie ändere ich die Zeile richtig.

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Mit TEXT bzw. FORMAT

30.07.2017 15:06:36

lupo1
AW: Mit TEXT bzw. FORMAT

30.07.2017 15:20:21

Frank
AW: Kalenderwoche berechen

30.07.2017 15:08:12

Sepp
AW: Kalenderwoche berechen

30.07.2017 17:14:22

Hajo_Zi
Fehler erst ab 2010 oT

30.07.2017 17:20:37

Hajo_Zi

Mit TEXT bzw. FORMAT

30.07.2017 15:06:36

lupo1

In Excel mit =TEXT(A1;"00")
In VBA bringt es Dir hier nichts, da die Funktion Variant ist und daher die 0 verschwindet.
Oder die KW wird zu Text:
KW_DIN = Format(DatePart("ww", Datum, vbMonday, vbFirstFourDays), "00")
(ungetestet)

AW: Mit TEXT bzw. FORMAT

30.07.2017 15:20:21

Frank

Danke Lopo1,
das ist was ich gesucht habe.

AW: Kalenderwoche berechen

30.07.2017 15:08:12

Sepp

Hallo Frank,
wenn du die Funktion in der Tabelle verwendest, dann über das Zellformat (00), in VBA mit

 Format(KW_DIN(),"00")

Excel hat aber die Funktion KALENDERWOCHE().

Gruß Sepp

AW: Kalenderwoche berechen

30.07.2017 17:14:22

Hajo_Zi

warum nicht einfach ohne VBA?

Tabelle2

	A	B
20	30.07.2017	30
21	07.01.2017	1

verwendete Formeln
Zelle	Formel	Bereich	N/A
B20:B21	=KALENDERWOCHE(A20;21)

Zahlenformate
Zelle	Format
A20	'TT.MM.JJJJ
B20	'00
A21	'TT.MM.JJJJ
B21	'00

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 25.12 einschl. 64 Bit

Beachte Zahlenformat.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.

Fehler erst ab 2010 oT

30.07.2017 17:20:37

Hajo_Zi

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die Kalenderwoche in Excel zu berechnen, kannst du entweder VBA oder eine Excel-Funktion verwenden. Hier sind die Schritte für beide Methoden:

1. Mit VBA:

Öffne den Visual Basic for Applications (VBA) Editor mit ALT + F11.
Füge ein neues Modul hinzu: Rechtsklick auf „VBAProject (DeinWorkbook)“ > „Einfügen“ > „Modul“.

Kopiere den folgenden Code in das Modul:

Function KW_DIN(Datum)
   KW_DIN = Format(DatePart("ww", Datum, vbMonday, vbFirstFourDays), "00")
End Function

Schließe den VBA-Editor und gehe zurück zu Excel.
Verwende die Funktion in einer Zelle, zum Beispiel =KW_DIN(A1).

2. Mit der Excel-Funktion:

Du kannst die eingebaute Funktion KALENDERWOCHE() verwenden.
Gebe die Formel in eine Zelle ein, z.B. =KALENDERWOCHE(A1; 21), um die Kalenderwoche zu berechnen.

Häufige Fehler und Lösungen

Problem: Bei der Verwendung von KALENDERWOCHE() wird die Kalenderwoche nicht wie gewünscht angezeigt.
- Lösung: Stelle sicher, dass das zweite Argument (der Modus) korrekt ist. Der Wert 21 gibt die ISO-Woche an.
Problem: Die Ausgabe der Kalenderwoche hat keine führende Null.
- Lösung: Verwende die Format-Funktion in VBA wie in der Schritt-für-Schritt-Anleitung beschrieben, oder formatiere die Zelle in Excel mit 00.

Alternative Methoden

Wenn du keine VBA verwenden möchtest, gibt es zusätzliche Methoden:

Zellformatierung: Du kannst die Zelle, die die Kalenderwoche enthält, mit dem benutzerdefinierten Format 00 formatieren, um sicherzustellen, dass eine führende Null angezeigt wird.
Formel ohne VBA: Nutze die Excel-Funktion direkt in der Zelle: =TEXT(KALENDERWOCHE(A1; 21), "00"). Diese Formel konvertiert die Kalenderwoche in Text und zeigt sie mit führender Null an.

Praktische Beispiele

Hier sind einige praktische Beispiele, die dir helfen, die Kalenderwoche zu berechnen:

Datum	KW (VBA)	KW (Excel)
30.07.2017	`=KW_DIN(A1)`	`=KALENDERWOCHE(A1; 21)`
07.01.2017	`=KW_DIN(A2)`	`=KALENDERWOCHE(A2; 21)`

In diesen Beispielen wird angenommen, dass die Daten in den Zellen A1 und A2 stehen.

Tipps für Profis

Wenn du regelmäßig mit Kalenderwochen arbeitest, erstelle eine benutzerdefinierte Funktion in VBA, um die Berechnungen zu automatisieren.
Experimentiere mit verschiedenen Zellformatierungen, um das Erscheinungsbild deiner Daten zu verbessern.
Halte deine Excel-Version auf dem neuesten Stand, um von den neuesten Funktionen und Verbesserungen zu profitieren.

FAQ: Häufige Fragen

1. Wie kann ich die Kalenderwoche für ein Datum ohne VBA berechnen?
Du kannst die Funktion KALENDERWOCHE() in Excel verwenden. Beispiel: =KALENDERWOCHE(A1; 21).

2. Was ist der Unterschied zwischen KALENDERWOCHE() und der benutzerdefinierten Funktion in VBA?
KALENDERWOCHE() ist eine integrierte Excel-Funktion, während die VBA-Funktion mehr Anpassungsmöglichkeiten bietet, z.B. die Anzeige mit führender Null.

Beliebteste Forumthreads (12 Monate)