Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1508to1512
1508to1512
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum aus KW und Tag errechnen

Forumthread: Datum aus KW und Tag errechnen

Datum aus KW und Tag errechnen
26.08.2016 08:39:40
Armin
Guten morgen zusammen,
ich habe folgendes Problem.
Über ein UserForm gibt der mitarbeiter Kalenderwoche und tag ein.
Jetzt soll mir in der Ausgabe aber folgendes erscheinen.
Eingabe :
KW = 34
Montag
Ausgabe:
Montag; 22.08.2016
Gruß Armin
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Datum aus KW und Tag errechnen
26.08.2016 08:52:17
Armin
Hallo Bernd,
vielen Dank, leider habe ich mich da bissl falsch ausgedrückt.
Ich wollte das in VBA lösen.
Gruß Armin
Anzeige
AW: Datum aus KW und Tag errechnen
26.08.2016 10:17:26
baschti007
Dafür gibt es eine Funktion
Gruß Basti

Sub ff()
MsgBox GetDateFromWeek(26 + 1, vbTuesday) ' Im Jahr 2016 muss zu der Kalenderwoche noch eine   _
_
Woche hinzugefügt werden da die KW1 nicht ab dem 1.1.2016 anfängt sondern 4.1.2016
End Sub
Public Function GetDateFromWeek(ByVal nWeek As Integer, _
Optional ByVal nDayOfWeek As VBA.VbDayOfWeek = vbMonday, _
Optional ByVal nYear As Integer = -1) As Date
Dim nCurWeek As Integer
Dim vStart As Variant
Dim vMonday As Variant
Dim vSunday As Variant
Dim nDay As Integer
' Kein Jahr angeben? Dann aktuelles Jahr verwenden!
If nYear = -1 Then nYear = Year(Now)
' aktuelle Woche im Jahr nYear ermitteln
vStart = DateSerial(nYear, Month(Now), Day(Now))
nCurWeek = Val(Format$(vStart, "ww", vbMonday))
' Datum der gewünschten Woche ermitteln
vStart = DateAdd("ww", nWeek - nCurWeek, vStart)
' Wochenanfang ermitteln
nDay = Weekday(vStart, vbMonday)
' Datum des gewünschten Wochentags ermitteln
If nDayOfWeek = vbSunday Then
GetDateFromWeek = DateAdd("d", -nDay + 7, vStart)
Else
GetDateFromWeek = DateAdd("d", -nDay + nDayOfWeek - 1, vStart)
End If
End Function

Anzeige
AW: Datum aus KW und Tag errechnen
26.08.2016 10:38:19
Armin
Wow super vielen Dank.
Bau ich gleich mal ein.
Gruß Armin
ganz schön lang ;-)
26.08.2016 13:03:22
Rudi
Hallo,
das tut's auch: 
Function MoInKW(KW As Integer, Jahr As Integer) As Date
MoInKW = CDate("4.1." & Jahr) + KW * 7 - 7 - CDate("2.1." & Jahr) Mod 7
End Function
Gruß
Rudi
Anzeige
AW: ganz schön lang ;-)
26.08.2016 13:41:39
baschti007
Hey Rudi =)
Aber bei deinem kann man nicht nach dem Tag gucken (Mo,Di.....)
Ich hab ja auch nur gegoogelt ;)
Gruß Basti
AW: ganz schön lang ;-)
26.08.2016 14:51:35
Rudi
Hallo,
mit Tag: 
Function TagInKW(KW As Integer, Jahr As Integer, Optional Tag As String = "Mo") As Date
TagInKW = CDate("4.1." & Jahr) + KW * 7 - 7 - CDate("2.1." & Jahr) Mod 7
TagInKW = TagInKW + InStr(1, " modimidofrsaso", Left(Tag, 2), 1) / 2 - 1
End Function
Gruß
Rudi
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
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Anzeige
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
Anzeige
Zelle in Datum umwandeln
Will

Hallo Leutz,
wie in folgender Datei zu sehen, habe ich mal wieder ein Thema mit der Umwandlung von Zellen in ein Datumsformat.
Eine Mainframeanwendung gibt mir die Werte im Format 6/2003 aus was Juni 2003 heißen soll. Excel erkennt diese Daten aber nicht als Datum.
Wie bitte bekomme...
12.01.2009 07:41:00
Thread-ID: 1038745
5 Beiträge
Text-String in Datumszahl umwandeln
MBorn

Hallo,
weiß jemand, wie ich einen Textstring ("27.02.1999") in die
passende Datumszahl (36218) umwandeln kann?
Danke,
Born
03.03.2009 13:16:27
Thread-ID: 1055953
4 Beiträge
Text-String in Datumszahl umwandeln
MBorn

Hallo,
weiß jemand, wie ich einen Textstring ("27.02.1999") in die
passende Datumszahl (36218) umwandeln kann?
Interessanterweise funktioniert das in Excel mit Ganzzahl(Datumsstring),
aber in VBA klappt int(Datumsstring) nicht.
Danke,
Born
03.03.2009 13:18:24
Thread-ID: 1055955
2 Beiträge
Anzeige
dynamisches Datum anhand Kalenderwoche
SteffenS

Hallo Zusammen,
ich möchte gern eine variable Dateneingabe mit Berücksichtigung der Kalenderwoche haben.
in der ersten Spalte steht immer die Summer der folgenden 5 Kalendertage.
In der Überschrift der Spalten B:F sollen dann in Zeile 3 das Datum sethen.
Das heißt in Kalenderwoc...
26.03.2009 19:16:14
Thread-ID: 1064368
3 Beiträge
Anzeige
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
Bei Export in .txt Datum umwandeln
Daniel

Hallo Zusammen,
ich habe in Spalte B ein Datum mit Uhrzeit in "deutschem Format" stehen.
Nun exportiere ich einen Bereich in eine Textdatei, dort brauche ich das Datum
aber als "TTMMJJJJ hh:mm". Was muss ich in meinem Makro ändern, damit ich
dieses Ergebnis bekomme?
Sub sav...
15.07.2009 11:07:46
Thread-ID: 1088769
8 Beiträge
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
Anzeige
Anzeige

Infobox / Tutorial

Datum aus Kalenderwoche und Tag berechnen in Excel

Schritt-für-Schritt-Anleitung

Um das Datum aus KW und Tag in Excel zu ermitteln, kannst du die folgende VBA-Funktion nutzen. Diese Funktion hilft dir dabei, das Datum basierend auf einer eingegebenen Kalenderwoche (KW) und einem Wochentag zu berechnen:

  1. Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
  2. Füge ein neues Modul hinzu, indem du im Menü Einfügen auf Modul klickst.
  3. Kopiere den folgenden VBA-Code in das Modul:
Function TagInKW(KW As Integer, Jahr As Integer, Optional Tag As String = "Mo") As Date
    TagInKW = CDate("4.1." & Jahr) + KW * 7 - 7 - CDate("2.1." & Jahr) Mod 7
    TagInKW = TagInKW + InStr(1, " modimidofrsaso", Left(Tag, 2), 1) / 2 - 1
End Function
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Verwende die Funktion in einer Zelle, um das Datum zu berechnen, z.B. =TagInKW(34, 2016, "Mo").

Mit dieser Funktion kannst du das Datum aus KW und den gewünschten Wochentag ermitteln.

Häufige Fehler und Lösungen

  • Fehler: #NAME?

    • Lösung: Stelle sicher, dass du die Funktion korrekt in VBA definiert hast und dass der VBA-Code keine Syntaxfehler enthält.

  • Fehler: Ungültiger Wochentag

    • Lösung: Überprüfe die Eingabe für den Wochentag. Er sollte als "Mo", "Di", "Mi", etc. eingegeben werden.

Alternative Methoden

Es gibt auch andere Ansätze, um aus Kalenderwoche Datum zu ermitteln. Eine einfache Excel-Formel könnte so aussehen:

=DATUM(Jahr; 1; (KW-1)*7 + 4) - WOCHENTAG(DATUM(Jahr; 1; 1); 2) + 1

Diese Formel gibt dir den Montag der gewünschten KW zurück. Du kannst sie erweitern, um das Datum für andere Wochentage zu berechnen.

Praktische Beispiele

  1. Berechnung für Montag der KW 34 im Jahr 2016:

    =TagInKW(34, 2016, "Mo")  ' Ergebnis: 22.08.2016

  2. Berechnung für Dienstag der KW 34 im Jahr 2016:

    =TagInKW(34, 2016, "Di")  ' Ergebnis: 23.08.2016

Tipps für Profis

  • Nutze Datenvalidierung in Excel, um sicherzustellen, dass nur gültige Wochentage eingegeben werden.
  • Erstelle ein UserForm, um die Benutzerfreundlichkeit zu verbessern und die Eingabe von KW und Wochentag zu erleichtern.
  • Verwende Kommentare in deinem VBA-Code, um die Funktionalität zu dokumentieren, besonders wenn du sie in größeren Projekten verwendest.

FAQ: Häufige Fragen

1. Wo finde ich die Kalenderwoche eines bestimmten Datums?
Du kannst die Funktion =KALENDERWOCHE(Datum;2) verwenden, um die Kalenderwoche eines bestimmten Datums zu ermitteln.

2. Wie kann ich das Datum aus einer Kalenderwoche und einem Wochentag in einer Formel berechnen?
Verwende die VBA-Funktion TagInKW oder die oben genannte Excel-Formel, um das Datum zu berechnen.

3. Ist es möglich, diese Funktion in Excel Online zu verwenden?
VBA-Funktionen sind in Excel Online nicht verfügbar. Du kannst jedoch alternative Excel-Formeln nutzen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige