Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
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
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kalenderwoche aus Datum / VBA

Forumthread: Kalenderwoche aus Datum / VBA

Kalenderwoche aus Datum / VBA
09.11.2018 13:48:36
Tom
Hallo,
wie lasse ich mir das Datum aus einer bestimmten Zelle (B33) in (A13) als Kalenderwoche anzeigen?
Die Formel bzw. Funktion ist mir bekannt. Hätte das aber gerne über VBA gelöst.
Freue mich über eure Antworrten.
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalenderwoche aus Datum / VBA
09.11.2018 13:53:00
JoWE
Hallo Tom,
gegoogelt:"Kalenderwoche aus Datum errechnen"
Ergebnis: 
Sub test()
Dim zelle As Range
For Each zelle In Worksheets(1).Range("A:A").Cells
If IsDate(zelle.Value) = True Then
Worksheets(1).Cells(zelle.Row, 2).Value = WorksheetFunction.WeekNum(zelle.Value, 1) _
End If
Next zelle
End Sub

Gruß
Jochen
Anzeige
AW: Kalenderwoche aus Datum / VBA
09.11.2018 14:07:39
Luschi
Hallo JoWE,
solltest Du mal Deinen Vorschlag testen, dann wirst Du merken, daß dies für den
01.01.2017 in Deutschland nicht stimmen kann, denn das ist war Sonntag und zählt nach DIN-1355
zur Kalenderwoche des Vorjahres (52/2016 statt 1/2017).
Gruß von Luschi
aus klein-Paris
AW: Kalenderwoche aus Datum / VBA
09.11.2018 15:08:56
JoWE
Hallo Luschi,
danke für den Hinweis.
Wie geschrieben hatte ich nur gegoogelt und das Ergebnis gepostet.
Als Wegweiser zu einer möglichen Lösung war des Post aber doch nicht schlecht!!
Und ja, ich hätte auch erst einmal testen können.
Schönes WE
Jochen
Anzeige
AW: Kalenderwoche aus Datum / VBA
09.11.2018 13:53:56
PeterK
Hallo
DatePart("ww", Datum, vbMonday, vbFirstFourDays)
AW: Kalenderwoche aus Datum / VBA
09.11.2018 18:26:11
Werni
Hallo Tom
Sub KW()
[A13] = Application.WorksheetFunction.WeekNum([B33], 21)
End Sub

Gruss werni
AW: Kalenderwoche aus Datum / VBA
09.11.2018 13:54:05
Luschi
Hallo Tom,
schade, daß auch Du ein Google-Muffel bist, sonst würdest Du längst diese Lösung kennen:
https://www.excel-inside.de/vba-loesungen/datum-und-zeit/253-kalenderwochedin
Gruß von Luschi
aus klein-Paris
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
Datum in Kalenderwoche plus Jahreszahl
Karsten

Hi zusammen,
brauch hierbei Hilfe. Und zwar moechte ich gerne wissen, wie ich ein Datum in Kalenderwoche plus Jahreszahl umwandeln kann. Datum in Kalenderwoche ist ja kein Thema. Ich mache das mit dem Analysis ToolPak. Formel: =WEEKNUM(A1,2) Leider reicht mir aber die Wochenzahl nicht aus....
26.09.2008 17:11:00
Thread-ID: 1012711
4 Beiträge
KW in Datum
ToMa

Hallo Leute!
Ich habe ein kleines Problem.
in Zelle A1 ist das Jahr (zB: 2008),
in Zelle A2 ist die Kw (zB: 28)
in Zelle C1 möchte ich Datum von Mittwoch dieser (zB: 28) Woche.
in Zelle C2 möchte ich Datum von Freitag dieser (zB: 28) Woche.
mit diese Formeln bekomme ich...
07.10.2008 20:13:00
Thread-ID: 1014809
4 Beiträge
Kalenderwoche in Datum ??????
ReSt

Hallo
Ich möchte gerne jeweils im MOntagsdatum die Kalenderwoche integriert haben. Also in der gleichen Zelle. Leider habe ich bis jetzt noch keine Lösung gefunden. Entweder hatte ich Probleme mit dem Format oder ich bekam einen Zirkelbezug.
Villeicht kann mir jemand weiterhelfen ? Dank...
19.10.2008 11:49:00
Thread-ID: 1017441
9 Beiträge
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Datumswerte in Spalte richtig umwandeln
chris

Hallo zusammen,
ich habe ein Problem und würde ecuh um Hilfe bitten.
ich habe eine Exceldatei.in dieser habe ich eine Spalte in dieser stehen Datumswerte.
Nur das Problem ist manche zellen sind nicht als Datum formatiert das merke ich z.b wenn ich den Autofilre verwende sind die Dat...
02.12.2008 11:57:00
Thread-ID: 1029457
6 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Datum in Zahl umwandeln
Johannes

Hallo!
Habe eine Frage zu Excel:
Ich möchte über eine WENN-Funktion das Datum aus G2 als Zahl in dem entsprechenden Feld (AJ - AP) haben.
Z.B. für "Freitag, 2. Januar 2009" soll in der Spalte AN eine 1 stehen.

Über Hilfe wäre ich SEHR dankbar.
Liebe Grüße
Johannes
04.03.2009 12:20:18
Thread-ID: 1056301
7 Beiträge
KW und Tag in Datum ausgeben!
lisa

Hallo
Ich habe hier einen Hänger und komme nicht weiter!
In meiner Zelle A1 steht das Datum 01.01.2009 und in B2 die Formel =KÜRZEN((A1-DATUM(JAHR(A1+3-REST(A1-2;7));1;REST(A1-2;7)-9))/7) und somit eine 1 für die KW1!
Jetzt habe ich in A2 152 stehen, was bedeuten soll, KW15 Tag 2!...
10.06.2009 13:32:56
Thread-ID: 1080458
6 Beiträge
Datumsformat in Zahl umwandeln
Karsten

Hallo,
in meiner Zelle steht z.B. 8. im Datumsformat T"." .
Läßt diese 8. auf irgendweise umwandeln in eine Zahl 8. umwandeln?
Mit copy und paste spezial... komme ich nicht weiter.
Danke für eure Hilfe.
Gruß
Karsten
11.07.2009 14:18:15
Thread-ID: 1087869
17 Beiträge
Anzeige
Aus Systemdatum Monatszahl ermitteln
Wolfgang

Hallo,
wäre denkbar, aus dem Systemdatum den Monat als Monatszahl darzustellen, so dass bei WorkbookOpen in Zelle A1 des Tabellenblattes "Start" automatsch die aktuelle Monatszahl minus 1 Monat, also nun 08 erscheint? Kann hierzu unter Recherche bzw. auf der Excel-CD nichts entdecken, so da...
19.09.2009 18:41:39
Thread-ID: 1104115
12 Beiträge
Datum in Zahl umwandeln (1.6.2009 -> 2009,5)
Grabner

Hi,
ist es möglich ein Datum wie z.B. den 1.6.2009 in eine Zahl wie 2009,5 umzuwandeln? Gibt es dafür eine Funktion?
Grüße
Franz
26.01.2011 15:39:56
Thread-ID: 1197454
7 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

Kalenderwoche aus Datum mit VBA ermitteln

Schritt-für-Schritt-Anleitung

Um die Kalenderwoche aus einem Datum mit VBA zu ermitteln, kannst du die folgende Schritt-für-Schritt-Anleitung nutzen:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub KW()
   [A13] = Application.WorksheetFunction.WeekNum([B33], 21)
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. In Zelle B33 gib das Datum ein, für das du die Kalenderwoche ermitteln möchtest.

  6. Führe das Makro KW aus, um die Kalenderwoche in Zelle A13 anzuzeigen.

Häufige Fehler und Lösungen

  • Fehler: Falsche Kalenderwoche angezeigt

    • Lösung: Stelle sicher, dass du die richtige Rückgabewoche verwendest. Die Option 21 in WeekNum gibt die ISO-Kalenderwoche zurück.

  • Fehler: Makro funktioniert nicht

    • Lösung: Überprüfe, ob Makros in deiner Excel-Anwendung aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter und aktiviere die Makros.

Alternative Methoden

Neben der Verwendung von VBA zur Ermittlung der Kalenderwoche gibt es auch andere Methoden:

  1. Formel in Excel: Du kannst die Funktion =KALENDERWOCHE(B33; 21) direkt in eine Zelle eingeben, um die Kalenderwoche zu berechnen.

  2. Excel Funktionen: Verwende DatePart("ww", [B33], vbMonday, vbFirstFourDays), um die Kalenderwoche zu erhalten.

Praktische Beispiele

  • Beispiel 1: Ermitteln der aktuellen Kalenderwoche

    Sub AktuelleKW()
  MsgBox "Die aktuelle Kalenderwoche ist: " & Application.WorksheetFunction.WeekNum(Date, 21)
End Sub

  • Beispiel 2: Datum aus Kalenderwoche ermitteln

    Sub DatumAusKW()
  Dim kw As Integer
  Dim jahr As Integer
  kw = InputBox("Gib die Kalenderwoche ein:")
  jahr = InputBox("Gib das Jahr ein:")
  MsgBox "Das Datum der ersten Woche ist: " & DateAdd("ww", kw - 1, DateSerial(jahr, 1, 1))
End Sub

Tipps für Profis

  • Wenn du mit der application.worksheetfunction.weeknum arbeitest, achte darauf, dass du den richtigen Modus (1 oder 21) wählst, um die gewünschte Kalenderwoche zu erhalten.
  • Du kannst die aktuelle Kalenderwoche mit dem Befehl vba aktuelle kalenderwoche direkt in deinen VBA-Code integrieren, um dynamische Berichte zu erstellen.

FAQ: Häufige Fragen

1. Wie kann ich die Kalenderwoche für ein Datum in einer anderen Zelle ermitteln? Um die Kalenderwoche für ein Datum in einer anderen Zelle (z.B. C5) zu ermitteln, ändere den Code zu:

[A13] = Application.WorksheetFunction.WeekNum([C5], 21)

2. Welche Excel-Version benötige ich? Diese VBA-Techniken funktionieren in den meisten modernen Excel-Versionen, einschließlich Excel 2016 und Excel 2019. Achte darauf, dass die VBA-Funktionalität aktiviert ist.

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