Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1872to1876
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1872to1876
1872to1876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumbereich aus Kalenderwoche ermitteln

Datumbereich aus Kalenderwoche ermitteln
23.02.2022 07:48:56
earlycon
Guten Morgen zusammen,
ich habe in einer Zelle eine Kalenderwoche stehen (z.B. KW 14).
Nun möchte ich daraus gerne den Datumbereich (04.04. - 08.04.2022) ermitteln.
Ich habe schon einige Lösungen als Formel gesehen, aber könnte mir jemand
behilflich sein, das in VBA zu lösen ?
Vielen Dank für Eure Unterstützung.
Gruß Stefan

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumbereich aus Kalenderwoche ermitteln
23.02.2022 09:25:42
earlycon
Danke Thorsten, in dem Beispiel soll ja der Montag der jeweiligen Kalenderwoche als Datum zurückgegeben werden.
Vermutlich kann man das auch so umstellen wie ich möchte, aber das übersteigt leider meinen VBA-Intellekt.
Vieles stellt man sich wohl einfacher vor, als es ist.
Aber trotzdem Danke für Deine Rückmeldung.
Viele Grüße
Stefan
AW: Datumbereich aus Kalenderwoche ermitteln
23.02.2022 09:29:50
Oberschlumpf
na Stefan, wenn du mit meiner gezeigten Funktion für KW 14 schon dein Startdatum - 04.04.2022 - ermittelt hast, z Bsp in Zelle A1, dann ist der Freitag, z Bsp in Zelle B1 = A1 + 4
Wo is das Problem?
Ciao
Thorsten
Wenn auch das deine VBA-Kenntnis übersteigt, dann zeig doch mal per Upload eine Bsp-Datei.
Anzeige
AW: Datumbereich aus Kalenderwoche ermitteln
23.02.2022 11:59:23
earlycon
Hallo Thorsten,
Du hast recht, mit ein wenig logischem Denken, hätte ich auch darauf kommen können.
Sei mir nicht böse, aber ich habe mich für die Variante von Uwe entschieden, weil diese ohne Funktion auskommt und nur ein bisschen Code ist.
Ich habe diesen noch angepasst und nun habe ich das gewünschte Ergebnis.
Viele Grüße und hab einen schönen Tag
Stefan
AW: Datumbereich aus Kalenderwoche ermitteln
23.02.2022 09:32:19
UweD
Hallo
so?

Sub Kalenderwoche_VonBis()
Dim KW As Integer, Jahr As Integer
Dim Dvon As Date, DBis As Date
KW = Range("A1") 'oder =InputBox("Kalenderwoche")
Jahr = Range("A2") 'oder =InputBox("Jahr", , Year(Date))
Dvon = CDate(7 * Int(CDbl(DateValue("2.1." & Jahr) / 7) + KW) - 5)
DBis = Dvon + 4 'bis Freitag
MsgBox "KW " & KW & " / " & Jahr & " =" & vbLf & vbLf & Dvon & " - " & DBis
End Sub
LG UweD
Anzeige
AW: Datumbereich aus Kalenderwoche ermitteln
23.02.2022 11:57:38
earlycon
Hallo Uwe,
vielen Dank. Ich habe Deinen Code noch ein wenig angepasst und so funktioniert er wunderbar:
Dim KW As Integer, Jahr As Integer
Dim Dvon As Date, DBis As Date, Lieferwoche As String
KW = Right(Sheets("Status").Cells(ActiveCell.Row, 6), 2)
Jahr = Year(Now)
Dvon = CDate(7 * Int(CDbl(DateValue("2.1." & Jahr) / 7) + KW) - 5)
DBis = Dvon + 4 'bis Freitag
Lieferwoche = Left(Dvon, 6) & Right(Dvon, 2) & " - " & Left(DBis, 6) & Right(DBis, 2)
MsgBox Lieferwoche
End If
Herzlichen Dank für Deine Hilfe
Viele Grüße
Stefan
Anzeige
noch ein Tipp
23.02.2022 13:44:26
UweD
Hallo nochmal
Lieferwoche geht auch einfacher...

Lieferwoche = Format(Dvon, "DD.MM.YY") & " - " & Format(DBis, "DD.MM.YY")
LG UweD
AW: noch ein Tipp
23.02.2022 14:48:31
earlycon
Jau, dass ist deutlich komfortabler :-)
Vielen Dank, das übernehme ich so...

318 Forumthreads zu ähnlichen 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
Anzeige
x Wochen zurückrechnen und Wochentag finden
schneewittchen123

Hallo zusammen,
ich habe eine kurze Frage, an der ich mir allerdings die Zähne ausbeiße:
ich möchte von einem gegebenen Datum (in Zelle A3) z.B. 3 Wochen zurückrechnen, aber wenn der entsprechende Tag kein Montag ist, dann soll er als Termin den Montag ausgeben.
Bsp.:
vom 25.04....
03.02.2009 11:50:00
Thread-ID: 1046579
9 Beiträge
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
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
aus TEXT wieder Zahlen machen | Herbers Excel-Forum
Magnus
Ich habe aus zwei Zeitangaben die Stunden errechnet, z.B:
A10=07:00 Uhr A2=15:45 Uhr A3= 08:45 Formel = TEXT(A2-A1;"h:mm")
~f~
ich möchte diesen Wert für eine weitere Formel benutzen, er wird aber als TEXT errechet, wenn ich ihn umwandle kommt irgendeine seltsame Zahl he...
28.01.2010 12:18:41
Thread-ID: 1133702
11 Beiträge
Auswertung Anzahl der Monate
Timo

Hallo Leute,
ich habe eine Liste, bei der es darum geht auszuwerten, ob ein Auftrag vom Liefertermin her um einen oder zwei Monate verschoben wurden.
Die Liste ist (stark vereinfacht) ungefähr so aufgebaut:
Spalte A: Auftragsnr
Spalte B: Änderung (hinzugefügt / reduziert)
Sp...
13.09.2010 18:52:08
Thread-ID: 1177334
6 Beiträge
Datum aus Kalenderwoche
Matthias V.

Hallo zusammen,ich weiß, dass das Thema schon häufiger vorkam, und ich habe auch schon das Archiv befragt.
Es ist nur so, dass ich mit den gegebenen Funktionen nicht ganz zurecht komme, ich sie nicht auf meinen Fall anpassen kann.Ich ermittele nun mit:Sub kw()Dim kw As Integerkw = DatePart("...
16.05.2002 16:31:23
Thread-ID: 121427
6 Beiträge
aus neg. Zahl eine positive machen
Christian

Hallo...
ich bekomme durch eine Rechnung eine negative Zahl angezeigt. Kann mir jemand sagen, was in die Formel muß, das die selbe Zahl ohne Minuszeichen angezeigt wird?
Besten Dank für eure Hilfe.
Gruß
Christian
22.05.2012 12:40:05
Thread-ID: 1264350
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
6
8
2
4
11
10
5
5
2
7
4
4
7
2
2
1
2
9
3
4
6
7
7
2