Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Kalenderwoche berechen

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.
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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.
Anzeige
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

Anzeige
AW: Kalenderwoche berechen
30.07.2017 17:14:22
Hajo_Zi
warum nicht einfach ohne VBA?

Tabelle2
 AB
2030.07.201730
2107.01.20171

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.
Anzeige
Fehler erst ab 2010 oT
30.07.2017 17:20:37
Hajo_Zi
;
Anzeige
Anzeige

Infobox / Tutorial

Kalenderwoche berechnen in Excel


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)

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