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

KW als Datum

Forumthread: KW als Datum

KW als Datum
01.04.2019 10:57:51
Thomas
hallo,
In der Zelle A3 gebe ich die 13 ( KW13) ein und jetzt will ich das in Zelle A3 steht 25.4. - 04.05
2019 kann man das machen ?
Danke
Thomas
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: KW als Datum
01.04.2019 11:03:34
SF
Hola,
kurz gegooglet:
https://www.schieb.de/711198/microsoft-excel-das-datum-aus-der-kalender-woche-ermitteln
Gruß,
steve1da
Montag einer KW
01.04.2019 11:07:00
WF
Hi,
in A1 steht die Kalenderwoche.
in A2 die vierstellige Jahreszahl
=7*KÜRZEN((2&-1&-A2)/7+A1)-5
WF
siehe unsere:
http://www.excelformeln.de/formeln.html?welcher=186
Anzeige
AW: Montag einer KW
01.04.2019 11:12:05
Thomas
Hallo Werner
Wenn ich das so eingebe kommt dann 01.04.2019 wenn ich dann auf Datum formatieren.
ES soll aber heißen 01.04. - 06.04.2019
eine Woche hat 7 Tage !
01.04.2019 11:21:01
WF
zwei mal die gleiche Formel mit etwas Formatierung:
=TEXT(7*KÜRZEN((2&-1&-A2)/7+A1)-5;"TT.MM.")&" - "&TEXT(7*KÜRZEN((2&-1&-A2)/7+A1)+1;"TT.MM.JJJJ")
WF
nicht Werner sondern Walter
Anzeige
AW: Montag einer KW
01.04.2019 11:40:28
hary
Moin
Teste mal.
Code in den Code der Tabelle. Wirkt nur bei Eingabe in A3.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Target.CountLarge > 1 Then Exit Sub
If Target.Address(False, False) = "A3" And IsNumeric(Target) Then
Application.EnableEvents = False
i = Evaluate("7*TRUNC((1&-1&-YEAR(TODAY()))/7+" & Target & ")-5")
Target = Format(CDate(i), "DD.MM.-") & CDate(i) + 6
Application.EnableEvents = True
End If
End Sub

gruss hary
Anzeige
AW: Montag einer KW
01.04.2019 11:59:39
Thomas
Danke an alle :-)
das geht so nicht...
01.04.2019 13:43:38
Frank
... jedenfalls nicht in dieser Welt... KW13 und 25.4.
oder liegt's am 01. April..?
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige