Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzeigeformat Jahr und Kalenderwoche

Forumthread: Anzeigeformat Jahr und Kalenderwoche

Anzeigeformat Jahr und Kalenderwoche
11.10.2004 10:24:18
Christian
Hi Leute,
ich habe folgendes Problem, bei dem ich nicht ganz weiterkomme.
Ich habe ein Datum, dass ich wie folgt anzeigen möchte:
"JJ - KW"
Zur Berechnung der Kalenderwoche haben ich folgende Funktion:

Function KW(Tag)
KW = DatePart("ww", Tag, vbMonday, vbFirstFourDays)
End Function

Ich möchte die Sache in einer Formel abbilden und bin bis jetzt schon so weit:
=VERKETTEN(JAHR(A1);" - ";Kw(A1)) // in A1 steht mein Datum 21.05.2004
als Ergebnis erhalten ich: "2004 - 21"
Nun will ich aber das Jahresformat nur zweistellig und mein Systemdatum möchte ich auch nicht ändern.
Weiß jemand von euch, welche Standardformel ich in meine Formel noch einbauen muss, damit ich das gewünschte Ergebnis erhalte, oder wie ich die Funktion aufbohren sollte, damit das Ergebnis stimmt?
Mit
=VERKETTEN(TEXT(JAHR(A1);"JJ");" - ";Kw(A1))
habe ich es auch schon versucht, da bekomme ich aber eine falsche Jahresangabe (1905) zurück.
Ich bedanke mich schon jetzt für jede Hilfe zu dem Thema.
mfg
Christian Becskei
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzeigeformat Jahr und Kalenderwoche
Dr.
...TEIL(JAHR(A1);3;2)...
AW: Anzeigeformat Jahr und Kalenderwoche
11.10.2004 12:10:35
Christian
Danke für die Hilfe,
ich bekomme aber immer ein falsches Jahr zurück.
A1=Datum: 21.05.2004
=VERKETTEN((TEIL(JAHR(A1);3;2));" - ";kw(A1))
Ergebnis: 05 - 21
=VERKETTEN((JAHR(A1);" - ";kw(A1))
Ergebnis: 1905 - 21
Habe ich was falsch eingestellt?
Danke
mfg
Christian
Anzeige
AW: Anzeigeformat Jahr und Kalenderwoche
Dr.
...TEIL(JAHR(A1);3;2)...
AW: Anzeigeformat Jahr und Kalenderwoche
Ulf
Die Berechnung der KW mit dieser Funktion entspricht nicht der DIN.
Wenn du das mit verketten machst, wird es Text, mit dem du nicht rechnen kannst.
Ist das so gewollt?
Ulf
AW: Anzeigeformat Jahr und Kalenderwoche
11.10.2004 10:37:04
Christian
Hast recht,
nach der Separierung wird mit den Daten noch gerechnet, Danke für den Hinweis.
Gibt es dazu eine Alternative?
Das mit der DIN ist nicht so wichtig, da wir das Tool nur intern verwenden. Ich habe mich mit dem DIN Thema noch nicht wirklich auseinandergesetzt. Ich müsste diesbezüglich im Forum noch etwas nachlesen (Einträge diesbezüglich habe ich schon gesehen).
mfg
Christian Becskei
Anzeige
AW: Anzeigeformat Jahr und Kalenderwoche
K.Rola
Hallo,

Function KW(Tag As Byte)
KW = Format(Date, "yy ") & Format(DatePart("ww", Tag, vbMonday, vbFirstFourDays), "00")
End Function

Btw. die Funktion entspricht nicht der DIN!
Gruß K.Rola
AW: Anzeigeformat Jahr und Kalenderwoche
11.10.2004 10:41:23
Christian
Danke für die geänderte Funktion.
Ich erhalte jedoch damit immer den Fehler #Zahl!
Zellenformat ist Standard.
Habe ich das was falsch eingestellt?
mfg
Christian
Anzeige
AW: Anzeigeformat Jahr und Kalenderwoche
K.Rola
Hallo,
schwer zu sagen, da die Function ansich macht, was sie soll.
Eingabe in eine Zelle: =KW(22) 'ergibt 04 03 (Jahr, Tag)
Gruß K.Rola
AW: Anzeigeformat Jahr und Kalenderwoche
11.10.2004 10:50:05
Christian
Danke,
ich bekomme auch bei der Geschichte mit
=VERKETTEN((TEIL(JAHR(A1);3;2));" - ";kw(A1))
den selben Fehler zurück
mfg
Christian
Anzeige
AW: Anzeigeformat Jahr und Kalenderwoche
11.10.2004 10:52:21
Christian
Mir ist noch was aufgefallen.
Die Funktion soll ja das Jahr und die KW zurückgeben
04 Jahr
21 Kalenderwoche
04 - 21 oder 04 21
mfg
Christian
AW: Anzeigeformat Jahr und Kalenderwoche
11.10.2004 11:55:30
Gert
Hallo Ihr alle,
hier erst einmal die DIN_KW-in VBA :
&ltpre&gt
Function DIN_KW(dat As Date) As Integer
Dim a As Integer
a = Int((dat - DateSerial(Year(dat), 1, 1) + _
((Weekday(DateSerial(Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1
If a = 0 Then
a = DIN_KW(DateSerial(Year(dat) - 1, 12, 31))
ElseIf a = 53 And _
(Weekday(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 &lt= 3 Then
a = 1
End If
DIN_KW = a

End Function&lt/pre&gt
Die DIN_KW war sehr wichtig im Jahrewechsel 2003/2004,
die Funktion "Kalenderwoche" übergibt den 01.01.2004 in der KW 53,
während "DIN_KW"=KW 01 richtig ist.
mfg
Gert Seler
Esgibt nichts gutes, außer man tut es.
Anzeige
AW: Anzeigeformat Jahr und Kalenderwoche
11.10.2004 12:20:41
Christian
Ich habe nun den Fehler deiner Funktion gefunden:
Die Variable war als "byte" und nicht als "date" deklariert.

So funktioniert es auch:

Function KW(Tag As date)
KW = Format(Date, "yy ") & Format(DatePart("ww", Tag, vbMonday, vbFirstFourDays), "00")
End Function

Danke nochmals für die Hilfe.
mfg
Christian
Anzeige
? oT
K.Rola
?
AW: ? oT
11.10.2004 14:51:53
Christian
Wenn ich deine Funktion aktiviert habe

Function KW(Tag As Byte)
KW = Format(Date, "yy ") & Format(DatePart("ww", Tag, vbMonday, vbFirstFourDays), "00")
End Function

habe ich immer einen Fehler #Zahl! in der Zelle erhalten.
mit der Umbau der Funktion in der Variablendefinition "Tag"

Function KW(Tag As date)
KW = Format(Date, "yy ") & Format(DatePart("ww", Tag, vbMonday, vbFirstFourDays), "00")
End Function

funktioniert die Berechnung wie von dir vorgeschlagen.
Danke für den Tipp.
mfg
Christian Becskei
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
Schaltjahr und Kalenderwoche mit VBA
Werner

Hallo Leute,
ich möchte mit VBA:
1. Feststellen ob das Jahr X ein Schaltjahr ist, z.B. eine Funktion erstellen:
Function Schaltjahr(Jahr as String) as Boolean End Function Der Aufruf wäre dann z.B. If Schaltjahr(2012) then .... Else ....
2. Eine Kalenderwoche mit Anfangsdatum u...
23.10.2012 07:59:17
Thread-ID: 1283361
4 Beiträge
Jahr und Monat aus Datum extrahieren mit Punkt
Constantin

Hallo,
um JJJJ.MM aus einem Datum zu extrahieren habe ich zuerst das Jahr und dann den Monat extrahiert.
Beim Zusammenfügen erscheint der gewünschte Punkt als Komma. Wie muss ich es richtig machen?
.Cells(intzeile, 15) = Year(vDate) & "." & Month(vDate)
Komma ging notfal...
09.12.2012 22:45:23
Thread-ID: 1290006
8 Beiträge
Datum suchen - Zelle als Text formatieren
Bertram

Liebes Forum,ich bin schon wieder einmal am Verzweifeln. Ich erhalte als Export aus einem Programm eine *.tab Datei. Diese öffnne ich in Excel. Führe mit einem Makro mehrere Schritte durch, damit diese Tabelle in Powerpoint verwendet werden kann. Nun zu meinem eigentlichen Problem. In der 4.Zei...
21.06.2002 10:17:01
Thread-ID: 130371
2 Beiträge
Kalenderwoche und Jahreswechsel mit bed. Format
Stuhlträger
Hallo zusammen!
Ich möchte gerne folgendes Problem in Excel lösen:
Es wird in einer Liste KW's eingegeben. Ich möchte gerne diejenigen KW's farblich markiert bekommen, die eine gewisse Zeitspanne vorbei sind.
Bsp:
A1= 14/2014 (genau so eingegeben, nicht errechnet)
Ich möchte nu...
05.07.2014 16:50:18
Thread-ID: 1369015
9 Beiträge
Kalenderwoche und korrektes Jahr
Peter

Guten Tag
Ich will von einem Datum die Kalenderwoche und das Jahr (Format KWJJJJ) ermitteln und dann anschliessend den Sonntag der entsprechenden Kalenderwoche.
Wie erhalte ich beim Jahreswechsel bei den ersten paar Tagen das korrekte Jahr in Spalte B (und nicht wie in meinem Beispiel i...
19.11.2014 16:22:08
Thread-ID: 1393286
4 Beiträge
Datum im "vorbeifliegen" als Kalenderwoche anzeige
Klaus Heine
Hallo zusammen,
mal eine ganz naive Frage: gibt es eine Möglichkeit, Zellen so zu formatieren, daß - quasi wie bei ausgeblendeten Kommentaren - Datumsfelder als Kalenderwoche dargestellt werden, wenn man mit dem Mauszeiger lediglich darauf steht?!?
Habe eine große Tabelle, in die ich nur f...
07.03.2016 12:58:14
Thread-ID: 1480353
4 Beiträge
Jahr aus Textbox1, Ostersonntagsdatum in Textbox2
Dieter(Drummer)

Guten Abend VBA Spezialisten.
In Userform1 und Klick auf Label1 (Jahr), wird in Textbox1 das aktuelle Jahr angezeigt.
Gleichzeitig soll dann In Textbox2 (Ostersonntag), das Ostersonntagsdatum
des aktuellen Jahres aus Textbox1 gezeigt werden.
Die Formel in Userform1, für die Oste...
11.06.2017 18:05:53
Thread-ID: 1563479
7 Beiträge
Anzeige
Datum aus Jahr, Monatstag und Kalenderwoche.
laggiwon

Hallo Spezialisten,
nachdem ich jetzt schon eine ganze Weile vergeblich nach einem passenden Thema suche frage ich doch mal selbst.
Ist es möglich per Formel aus dem Jahr, dem Monatstag und der Kalenderwoche ein Datum zu generieren?
Beispiel heute:
A1 = Jahr = 18 (oder 2018)
...
18.06.2018 19:38:36
Thread-ID: 1629316
48 Beiträge
Datum aus Oracle-Abfrage als Datum formatieren
Klexy

Hallo zusammen,
Ich habe einen Excel-Export aus einer Oracle-Datenbank. In diesem Export sind ein paar Datums-Spalten, die mit dem Datentyp "DATE" esportiert werden. Excel stellt diese Datume aber als String dar, wodurch sie nicht sortiert und sonstwie weiterverarbeitet werden können.
02.09.2019 11:19:29
Thread-ID: 1710709
7 Beiträge
Kalenderwoche und Jahreszahl aus Datum berechnen
Achmi

Hallo,ich habe folgende Aufgabenstellung: in eine Zelle (Zeile) wird ein Datum (tt.mm.jj) eingegeben. In den Spalten moechte ich dann zu dem jeweiligen Datum aus der Zeile die Kalenderwoche mit Jahreszahl eintragen lassen (z.B. 35/02). Wie kann ich diese Aufgabenstellung realisieren?Vielen Dank...
14.11.2002 12:45:55
Thread-ID: 181208
3 Beiträge
Kalenderwoche und Jahr
Rolf Kersjes

Hallo,für die monatliche Aufbereitung von Daten benötige ich einzelne Exceldateien die einer KW zugeordnet sind. Um diese dann entsprechend einzulesen war ich der Auffassung, das ist ja ganz einfach.Ermitteln des ersten Tages des Monats, dann über das Datum ermitteln der KW mit der Formel von W...
15.01.2003 11:10:33
Thread-ID: 203707
15 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

Anzeigeformat Jahr und Kalenderwoche in Excel

Schritt-für-Schritt-Anleitung

Um ein Datum in Excel im Format "JJ - KW" anzuzeigen, kannst Du die folgende Formel verwenden. Diese Schritte setzen voraus, dass Du ein Datum in Zelle A1 hast:

  1. Funktion für die Kalenderwoche erstellen: Erstelle eine benutzerdefinierte Funktion, die die Kalenderwoche berechnet. Gehe zu Entwicklertools > Visual Basic und füge den folgenden Code ein:

    Function KW(Tag As Date)
   KW = Format(Tag, "yy") & " - " & Format(DatePart("ww", Tag, vbMonday, vbFirstFourDays), "00")
End Function

  2. Formel in Excel verwenden: Nutze die Funktion in einer Zelle, um das gewünschte Format zu erhalten:

    =KW(A1)

  3. Das Ergebnis überprüfen: Das Ergebnis sollte nun im Format "JJ - KW" erscheinen, wie z.B. "04 - 21".

Häufige Fehler und Lösungen

  • Fehler: #Zahl!
    Dieser Fehler tritt häufig auf, wenn die Funktion nicht korrekt deklariert ist. Stelle sicher, dass der Parameter Tag in der Funktion als Date und nicht als Byte deklariert ist.

  • Falsches Jahr (1905)
    Wenn das Jahr nicht korrekt angezeigt wird, überprüfe, ob die Funktion richtig deklariert ist und ob das Datum in Zelle A1 im richtigen Format vorliegt.

Alternative Methoden

Wenn Du die Kalenderwoche und das Jahr in einer Zelle kombinieren möchtest, kannst Du auch folgende Formel verwenden:

=VERKETTEN(TEXT(JAHR(A1),"JJ"); " - "; TEXT(KW(A1),"00"))

Alternativ kannst Du das Standard-Datumsformat in Excel nutzen, um die Kalenderwoche anzuzeigen. Setze die Zelle auf das Format JJ - KW:

  1. Rechtsklicke auf die Zelle und wähle Zellen formatieren.
  2. Gehe zu Benutzerdefiniert und gib folgendes Format ein: 
    jj - "KW"ww

Praktische Beispiele

  1. Beispiel mit Datum:
    Wenn A1 das Datum 21.05.2004 enthält, gibt die Formel =KW(A1) das Ergebnis "04 - 21" zurück.

  2. Beispiel für die Anzeige der aktuellen Kalenderwoche:
    Um die aktuelle Kalenderwoche anzuzeigen, kannst Du folgende Formel verwenden:

    =KW(HEUTE())

Tipps für Profis

  • Verwendung von VBA: Das Erstellen eigener Funktionen in VBA ermöglicht es Dir, spezifische Berechnungen durchzuführen, die nicht standardmäßig in Excel verfügbar sind. Nutze VBA, um deine Excel-Daten optimal zu formatieren.

  • Kombinierte Formate: Überlege, ob Du zusätzliche Informationen wie das Jahr und die Kalenderwoche in einer Zelle kombinieren möchtest. Das verbessert die Übersichtlichkeit Deiner Daten.

FAQ: Häufige Fragen

1. Was bedeutet mm/jj?
Das Format mm/jj steht für Monat und Jahr, wobei "mm" für den zweistelligen Monat und "jj" für das zweistellige Jahr steht.

2. Welche Kalenderwoche haben wir jetzt?
Um die aktuelle Kalenderwoche in Excel anzuzeigen, verwende die Funktion =KW(HEUTE()). Dies gibt Dir die aktuelle Kalenderwoche basierend auf dem heutigen Datum zurück.

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